From 551abf50b022e2819361453d915c967c3a14bb5a Mon Sep 17 00:00:00 2001 From: Oliver Payne Date: Fri, 13 May 2022 11:19:24 +0100 Subject: [PATCH] Remove tracing --- 3_25.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))