diff --git a/3_25.rkt b/3_25.rkt index db8b38f..79f6373 100644 --- a/3_25.rkt +++ b/3_25.rkt @@ -13,7 +13,7 @@ (define (empty? table) (not (list? (cdr table)))) -(trace-define (lookup keys table) +(define (lookup keys table) (cond ((null? keys) (cdr table)) ((empty? table) false) (else @@ -23,7 +23,7 @@ false))))) (define (insert! keys value table) - (trace-define (insert-subtable! keys subtable) + (define (insert-subtable! keys subtable) (if (and (not (null? keys)) (not (null? subtable))) (let* ((key (car keys))