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

Ensure all output of ,collect goes to (command-output).

This commit is contained in:
mainzelm 2003-03-18 12:51:08 +00:00
parent f28a5f7dbb
commit 766ba98a31
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/env/debug.scm vendored
View File

@ -290,12 +290,12 @@ Kind should be one of: names maps files source tabulate"
(let ((after (memory-status memory-status-option/available #f))) (let ((after (memory-status memory-status-option/available #f)))
(display "Before: " port) (display "Before: " port)
(write before port) (write before port)
(display " words free in semispace") (display " words free in semispace" port)
(newline) (newline port)
(display "After: " port) (display "After: " port)
(write after port) (write after port)
(display " words free in semispace") (display " words free in semispace" port)
(newline)))) (newline port))))
(define memory-status-option/available (enum memory-status-option available)) (define memory-status-option/available (enum memory-status-option available))