yiyunliu/core-in-racket
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the add-node function

Browse source
This commit is contained in:
Yiyun Liu 2025-06-06 00:17:27 -04:00
parent d324fdd5d7
commit 1a39377ca1
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
printer.rkt
View file

@ -136,7 +136,7 @@
(let ([ppr-stack-item
: (-> Addr ISeq)
(λ (addr) (iseq-append (ppr-fwaddr addr) ": " (ppr-stack-node heap (lookup-node heap addr))))])
(iseq-append "Stk [" (list 'Hang -1 (ppr-list ppr-stack-item 'Newline stack)))))
(iseq-append "Stk [" (list 'Hang 0 (ppr-list ppr-stack-item 'Newline stack)) "]")))
(: ppr-state (-> State ISeq))
(define (ppr-state st)
@ -170,3 +170,5 @@
[(? string?) (display i s)]))])
(go l a)
(get-output-string s))))
(provide (all-defined-out))

5
semantics.rkt
View file

@ -48,8 +48,9 @@
(: allocate-node (-> Heap Node (Values Heap Addr)))
(define (allocate-node heap node)
(let ([heap (treelist-add heap node)])
(values heap (treelist-length heap))))
(let ([addr (treelist-length heap)]
[heap (treelist-add heap node)])
(values heap addr)))
(: lookup-node (-> Heap Addr Node))
(define lookup-node treelist-ref)