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

6
printer.rkt
View file

@ -115,7 +115,7 @@
(define (ppr-node a) (define (ppr-node a)
(cond (cond
[(integer? a) [(integer? a)
(iseq-append "NNum" (number->string a))] (iseq-append "NNum " (number->string a))]
[(not (eq? (car a) 'define)) [(not (eq? (car a) 'define))
(let ([fun (first a)] (let ([fun (first a)]
[arg (second a)]) [arg (second a)])
@ -136,7 +136,7 @@
(let ([ppr-stack-item (let ([ppr-stack-item
: (-> Addr ISeq) : (-> Addr ISeq)
(λ (addr) (iseq-append (ppr-fwaddr addr) ": " (ppr-stack-node heap (lookup-node heap addr))))]) (λ (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)) (: ppr-state (-> State ISeq))
(define (ppr-state st) (define (ppr-state st)
@ -170,3 +170,5 @@
[(? string?) (display i s)]))]) [(? string?) (display i s)]))])
(go l a) (go l a)
(get-output-string s)))) (get-output-string s))))
(provide (all-defined-out))

5
semantics.rkt
View file

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