IsaacShoebottom/CS4613
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor

Browse Source
This commit is contained in:
Isaac Shoebottom
2025-04-24 11:56:09 -03:00
parent 21edc13b1e
commit 0fc9b1e8ec
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Final/3.rkt
View File

@ -133,7 +133,7 @@
(heap-set! thing 'forwarded) (heap-set! thing 'forwarded)
(heap-set! (+ thing 1) (gc:closure code-ptr free-vars)))] (heap-set! (+ thing 1) (gc:closure code-ptr free-vars)))]
[else [else
(error 'forward/loc "Unknown tag: ~a" tag)])) (error 'forward/loc "unknown tag: ~a" tag)]))
(define (object-size addr) (define (object-size addr)
@ -146,7 +146,7 @@
(+ 3 n-vars))] (+ 3 n-vars))]
[(equal? tag 'forwarded) 2] [(equal? tag 'forwarded) 2]
[else [else
(error 'object-size "Unknown tag: ~a" tag)])) (error 'object-size "unknown tag: ~a" tag)]))
(define (gc! . other-roots) (define (gc! . other-roots)
(swap-spaces!) (swap-spaces!)