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

Minor

Browse source
This commit is contained in:
Yiyun Liu 2025-06-07 22:05:17 -04:00
parent d827f9f683
commit b3cf6dec21
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
semantics.rkt
View file

@ -136,13 +136,10 @@
(let ([next-st (update-stats incr-stats (step st))]) (let ([next-st (update-stats incr-stats (step st))])
(cons st (eval-state next-st))))) (cons st (eval-state next-st)))))
(: data-node? (-> Node Boolean))
(define data-node? integer?)
(: final-state? (-> State Boolean)) (: final-state? (-> State Boolean))
(define (final-state? st) (define (final-state? st)
(match (State-stack st) (match (State-stack st)
[(list n) (data-node? (lookup-node (State-heap st) n))] [(list n) (integer-node? (lookup-node (State-heap st) n))]
[_ #f])) [_ #f]))
(: step (-> State State)) (: step (-> State State))