Skip to content

Commit da2c989

Browse files
authored
Fix bug in comple-+ example
1 parent 9e3b512 commit da2c989

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

www/notes/grift.scrbl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -228,7 +228,7 @@ the same thing by sticking in something that no variable is equal to:
228228
;; Expr Expr CEnv -> Asm
229229
(define (compile-+ e0 e1 c)
230230
(let ((c0 (compile-e e0 c))
231-
(c1 (compile-e e1 (cons x c))))
231+
(c1 (compile-e e1 (cons #f c))))
232232
`(,@c0
233233
(mov (offset rsp ,(add1 (- (length c)))) rax)
234234
,@c1

0 commit comments

Comments
 (0)