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

fix first-order->higher-order

Browse Source 
svn: r12400
This commit is contained in:
Matthew Flatt 2008-11-12 03:08:15 +00:00
parent 4bb9ef582f
commit fc68840124
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/lang/prim.ss
View File

@ -132,7 +132,8 @@
(define-syntax (first-order->higher-order stx) (define-syntax (first-order->higher-order stx)
(syntax-case stx () (syntax-case stx ()
[(_ id) (fo:first-order->higher-order #'id)])) [(_ id) (identifier? #'id) (fo:first-order->higher-order #'id)]
[(_ expr) #'expr]))
(define-syntax (provide-primitive stx) (define-syntax (provide-primitive stx)
(syntax-case stx () (syntax-case stx ()