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

.

Browse Source 
original commit: 79cbf31c528279961f7cc3f138b51fdf5f77f42f
This commit is contained in:
Matthew Flatt 2005-05-18 16:41:39 +00:00
parent eb72ab5bba
commit 01ff14079f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/foreign.ss
View File

@ -360,7 +360,8 @@
(syntax-case* x (=>) id=? (syntax-case* x (=>) id=?
[(id => body) (identifier? #'id) [(id => body) (identifier? #'id)
;; Extract #'body from its context, use a key it needs certification: ;; Extract #'body from its context, use a key it needs certification:
(list #'id (syntax-recertify #'body orig #f fun-cert-key))] (list (syntax-recertify #'id orig #f fun-cert-key)
(syntax-recertify #'body orig #f fun-cert-key))]
[_else x])) [_else x]))
(let ([keys '()]) (let ([keys '()])
(define (setkey! key val . id?) (define (setkey! key val . id?)