diff options
| author | bnewbold <bnewbold@eta.mit.edu> | 2009-02-26 02:27:29 -0500 |
|---|---|---|
| committer | bnewbold <bnewbold@eta.mit.edu> | 2009-02-26 02:27:29 -0500 |
| commit | e2f14dccd56aa04f1a1c1eb1bde26c728f30dc60 (patch) | |
| tree | 6b246200dfde0ee0b9df8e3c7aaecd8b2997ebea /ps03_evalapply/bnewbold_work.scm | |
| parent | 76600aad9835aa1a0af4ccde23b9cb2c1addae17 (diff) | |
| download | 6.945-e2f14dccd56aa04f1a1c1eb1bde26c728f30dc60.tar.gz 6.945-e2f14dccd56aa04f1a1c1eb1bde26c728f30dc60.zip | |
spellchecked
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 |