From 419152e81e0f4c779a9aa7af0d1b7ccf5938dff5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 24 Mar 2008 20:30:31 +0000 Subject: [PATCH] provide unicode lambda symbol svn: r9079 --- collects/lazy/lazy.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/lazy/lazy.ss b/collects/lazy/lazy.ss index 2e0e1b3019..266b38d3d8 100644 --- a/collects/lazy/lazy.ss +++ b/collects/lazy/lazy.ss @@ -119,6 +119,7 @@ (lambda args (~begin body0 body ...))) 'inferred-name n)]) (syntax/loc stx (lazy-proc lam))))])) + (provide (rename ~lambda λ)) (defsubst (~define (f . xs) body0 body ...) (define f (~lambda xs body0 body ...)) (~define v x) (define v x)) @@ -695,7 +696,8 @@ [~id (string->symbol (string-append "~" str))]) (datum->syntax-object id ~id id))) (syntax->list #'(id ...)))]) - #'(provide (all-from-except mzscheme module #%app apply #%top id ...) + #'(provide (all-from-except mzscheme module #%app apply #%top λ + id ...) (rename ~id id) ...))])) (renaming-provide lambda define let let* letrec parameterize