Skip to content

Commit 914a13a

Browse files
committed
Whitespace.
1 parent 9974cb1 commit 914a13a

1 file changed

Lines changed: 3 additions & 3 deletions

File tree

www/notes/fraud/interp-lexical.rkt

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
[`(if ,e0 ,e1 ,e2)
2323
`(if ,(translate-e e0)
2424
,(translate-e e1)
25-
,(translate-e e2))]
25+
,(translate-e e2))]
2626
[(? symbol? x)
2727
`(address ,(lexical-address x r))]
2828
[`(let ((,x ,e0)) ,e1)
@@ -42,7 +42,7 @@
4242
[v
4343
(if v
4444
(interp-env e1 r)
45-
(interp-env e2 r))])]
45+
(interp-env e2 r))])]
4646
[`(address ,i)
4747
(list-ref r i)]
4848
[`(let ((_ ,e0)) ,e1)
@@ -72,7 +72,7 @@
7272
(let ((y x))
7373
y)))
7474
'(let ((_ 0)) (let ((_ (address 0))) (address 0))))
75-
75+
7676
(check-equal? (interp 5) 5)
7777
(check-equal? (interp '(let ((x 0)) x)) 0)
7878
(check-equal? (interp '(let ((x 0)) (let ((y 1)) x))) 0)

0 commit comments

Comments
 (0)