(define-syntax purer-lambda
  (syntax-rules ()
    ((_ env args body ...)
     (eval `(lambda args body ...) (apply environment 'env)))))