Remove tracing

This commit is contained in:
Oliver Payne 2022-05-13 11:19:24 +01:00
parent 791c601d29
commit 551abf50b0
1 changed files with 2 additions and 2 deletions

View File

@ -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))