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

and, or now wrap single term with #%expression

Browse Source 
That disallows things like (and (define x 1)), previously accepted.
This commit is contained in:
Ryan Culpepper 2010-09-14 12:20:34 -06:00
parent ae645a18c1
commit 4a29ce914f
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/private/qq-and-or.rkt
View File

@ -400,7 +400,11 @@
(if (if (stx-pair? e) (if (if (stx-pair? e)
(stx-null? (stx-cdr e)) (stx-null? (stx-cdr e))
#t) #t)
(stx-car e) (datum->syntax
here
(list (quote-syntax #%expression)
(stx-car e))
x)
(datum->syntax (datum->syntax
here here
(list (quote-syntax if) (list (quote-syntax if)
@ -422,7 +426,11 @@
(if (if (stx-pair? e) (if (if (stx-pair? e)
(stx-null? (stx-cdr e)) (stx-null? (stx-cdr e))
#f) #f)
(stx-car e) (datum->syntax
here
(list (quote-syntax #%expression)
(stx-car e))
x)
(if (stx-list? e) (if (stx-list? e)
(let-values ([(tmp) 'or-part]) (let-values ([(tmp) 'or-part])
(datum->syntax (datum->syntax