Skip to content

Commit 0bbd268

Browse files
authored
Merge pull request #23 from dvanhorn/next
Restrict variables to avoid overlap with keywords.
2 parents 675211a + e3f8597 commit 0bbd268

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

www/notes/fraud/syntax.rkt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
;; Is x a well-formed expression?
66
(define (expr? x)
77
(match x
8-
[(? symbol?) #t]
8+
[(? symbol?) (not (memq x '(if let add1 sub1)))]
99
[(? integer? i) #t]
1010
[`(add1 ,x) (expr? x)]
1111
[`(sub1 ,x) (expr? x)]

0 commit comments

Comments
 (0)