diff --git a/imperative/skeleton.rkt b/imperative/skeleton.rkt index 95c81e9..6c37da3 100644 --- a/imperative/skeleton.rkt +++ b/imperative/skeleton.rkt @@ -262,7 +262,6 @@ (define old-top (car popped-stack)) (define new-top (cond [(non-object-struct? old-top) (vector-ref (struct->vector old-top) (+ index 1))] - ;; ^ TODO: evaluate unsafe-struct-ref [(list? old-top) (list-ref old-top index)] [(vector? old-top) (vector-ref old-top index)])) (define entry (hash-ref table