We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 9974cb1 commit 914a13aCopy full SHA for 914a13a
1 file changed
www/notes/fraud/interp-lexical.rkt
@@ -22,7 +22,7 @@
22
[`(if ,e0 ,e1 ,e2)
23
`(if ,(translate-e e0)
24
,(translate-e e1)
25
- ,(translate-e e2))]
+ ,(translate-e e2))]
26
[(? symbol? x)
27
`(address ,(lexical-address x r))]
28
[`(let ((,x ,e0)) ,e1)
@@ -42,7 +42,7 @@
42
[v
43
(if v
44
(interp-env e1 r)
45
- (interp-env e2 r))])]
+ (interp-env e2 r))])]
46
[`(address ,i)
47
(list-ref r i)]
48
[`(let ((_ ,e0)) ,e1)
@@ -72,7 +72,7 @@
72
(let ((y x))
73
y)))
74
'(let ((_ 0)) (let ((_ (address 0))) (address 0))))
75
-
+
76
(check-equal? (interp 5) 5)
77
(check-equal? (interp '(let ((x 0)) x)) 0)
78
(check-equal? (interp '(let ((x 0)) (let ((y 1)) x))) 0)
0 commit comments