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

Updated to use datum->syntax.

Browse Source 
svn: r8924
This commit is contained in:
Danny Yoo 2008-03-08 06:43:45 +00:00
parent 3f63c64d59
commit 77e7725571
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/srfi/26/cut.ss
View File

@ -10,6 +10,7 @@
#lang scheme/base #lang scheme/base
(provide cut cute) (provide cut cute)
(require (for-syntax scheme/base))
; generate-names/exprs : ; generate-names/exprs :
; Given the arguments for the macro call to cut (or cute) as a syntax-list, ; Given the arguments for the macro call to cut (or cute) as a syntax-list,
@ -68,7 +69,7 @@
(generate-names/exprs #'(slot-or-expr ...) (generate-names/exprs #'(slot-or-expr ...)
(lambda (slot-names names-or-exprs . ignored) (lambda (slot-names names-or-exprs . ignored)
#`(lambda (x #,@slot-names) #`(lambda (x #,@slot-names)
(x #,@(datum->syntax-object stx names-or-exprs)))))] (x #,@(datum->syntax stx names-or-exprs)))))]
[(cut proc slot-or-expr ... <...>) [(cut proc slot-or-expr ... <...>)
;; Applying a wrong number of arguments to the the lamba generated by cut, will provoke an ;; Applying a wrong number of arguments to the the lamba generated by cut, will provoke an
;; error caused by the application (proc ...). The quasisyntax/loc makes sure DrScheme ;; error caused by the application (proc ...). The quasisyntax/loc makes sure DrScheme