scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revive these wonderful debugging tools.

This commit is contained in:
mainzelm 2002-02-12 07:54:22 +00:00
parent e316ce1109
commit 150031d918
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/env/space.scm vendored
View File

@ -8,7 +8,7 @@
(define length-procedures (define length-procedures
(do ((i (- stob-count 1) (- i 1)) (do ((i (- stob-count 1) (- i 1))
(l '() (cons (eval `(lap *length () (l '() (cons (eval `(lap *length ()
(check-nargs= 1) (protocol 1)
(pop) (pop)
(stored-object-length (stored-object-length
,(enumerand->name i stob)) ,(enumerand->name i stob))

1
scheme/env/traverse.scm vendored
View File

@ -15,7 +15,6 @@
(define *traverse-count* 0) (define *traverse-count* 0)
(define (start-over) (define (start-over)
(flush-the-symbol-table!)
(set! *mark-table* (make-table hash)) (set! *mark-table* (make-table hash))
(set! *interesting-table* (make-table)) (set! *interesting-table* (make-table))
(set! *traverse-count* 0)) (set! *traverse-count* 0))