minor

2025-04-24 11:56:09 -03:00
parent 21edc13b1e
commit 0fc9b1e8ec
1 changed files with 2 additions and 2 deletions
--- a/Final/3.rkt
+++ b/Final/3.rkt
@ -133,7 +133,7 @@
       (heap-set! thing 'forwarded)
       (heap-set! (+ thing 1) (gc:closure code-ptr free-vars)))]
    [else
-     (error 'forward/loc "Unknown tag: ~a" tag)]))
+     (error 'forward/loc "unknown tag: ~a" tag)]))


 (define (object-size addr)
@ -146,7 +146,7 @@
       (+ 3 n-vars))]
    [(equal? tag 'forwarded) 2]
    [else
-     (error 'object-size "Unknown tag: ~a" tag)]))
+     (error 'object-size "unknown tag: ~a" tag)]))

 (define (gc! . other-roots)
  (swap-spaces!)