If your Scheme implementation supports Unicode, the following might work (it does for Gauche):
(define-syntax λ (syntax-rules () ((_ . _) (lambda . _))))
category-code