Remove tracing
This commit is contained in:
parent
791c601d29
commit
551abf50b0
4
3_25.rkt
4
3_25.rkt
|
@ -13,7 +13,7 @@
|
||||||
(define (empty? table)
|
(define (empty? table)
|
||||||
(not (list? (cdr table))))
|
(not (list? (cdr table))))
|
||||||
|
|
||||||
(trace-define (lookup keys table)
|
(define (lookup keys table)
|
||||||
(cond ((null? keys) (cdr table))
|
(cond ((null? keys) (cdr table))
|
||||||
((empty? table) false)
|
((empty? table) false)
|
||||||
(else
|
(else
|
||||||
|
@ -23,7 +23,7 @@
|
||||||
false)))))
|
false)))))
|
||||||
|
|
||||||
(define (insert! keys value table)
|
(define (insert! keys value table)
|
||||||
(trace-define (insert-subtable! keys subtable)
|
(define (insert-subtable! keys subtable)
|
||||||
(if (and (not (null? keys))
|
(if (and (not (null? keys))
|
||||||
(not (null? subtable)))
|
(not (null? subtable)))
|
||||||
(let* ((key (car keys))
|
(let* ((key (car keys))
|
||||||
|
|
Loading…
Reference in New Issue