diff --git a/Final/3.rkt b/Final/3.rkt index 5b1a48b..dd003f5 100644 --- 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!)