suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

provide unicode lambda symbol

Browse Source 
svn: r9079
This commit is contained in:
Eli Barzilay 2008-03-24 20:30:31 +00:00
parent 6901fc1fd7
commit 419152e81e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lazy/lazy.ss
View File

@ -119,6 +119,7 @@
(lambda args (~begin body0 body ...))) (lambda args (~begin body0 body ...)))
'inferred-name n)]) 'inferred-name n)])
(syntax/loc stx (lazy-proc lam))))])) (syntax/loc stx (lazy-proc lam))))]))
(provide (rename ~lambda λ))
(defsubst (defsubst
(~define (f . xs) body0 body ...) (define f (~lambda xs body0 body ...)) (~define (f . xs) body0 body ...) (define f (~lambda xs body0 body ...))
(~define v x) (define v x)) (~define v x) (define v x))
@ -695,7 +696,8 @@
[~id (string->symbol (string-append "~" str))]) [~id (string->symbol (string-append "~" str))])
(datum->syntax-object id ~id id))) (datum->syntax-object id ~id id)))
(syntax->list #'(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) ...))])) (rename ~id id) ...))]))
(renaming-provide (renaming-provide
lambda define let let* letrec parameterize lambda define let let* letrec parameterize