We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 675211a + e3f8597 commit 0bbd268Copy full SHA for 0bbd268
1 file changed
www/notes/fraud/syntax.rkt
@@ -5,7 +5,7 @@
5
;; Is x a well-formed expression?
6
(define (expr? x)
7
(match x
8
- [(? symbol?) #t]
+ [(? symbol?) (not (memq x '(if let add1 sub1)))]
9
[(? integer? i) #t]
10
[`(add1 ,x) (expr? x)]
11
[`(sub1 ,x) (expr? x)]
0 commit comments