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

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)