diff options
Diffstat (limited to 'ps03_evalapply/bnewbold_work.scm')
| -rw-r--r-- | ps03_evalapply/bnewbold_work.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/ps03_evalapply/bnewbold_work.scm b/ps03_evalapply/bnewbold_work.scm index e74c65e..d968fd2 100644 --- a/ps03_evalapply/bnewbold_work.scm +++ b/ps03_evalapply/bnewbold_work.scm @@ -232,17 +232,6 @@ sandwich (define *compound-call-database* (make-eq-hash-table)) -#| -(define (clear-profile-results) - (set! PROFILING-ENABLED #f) - ( *primative-call-database* - (set! *compound-call-database* - (make-eq-hash-table)) - (set! PROFILING-ENABLED #t)) -(define cpr clear-profile-results) ; shorter -|# - - (define (print-profile-results) (set! PROFILING-ENABLED #f) (begin |