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

Remove debugging output.

This commit is contained in:
mainzelm 2002-09-18 11:21:06 +00:00
parent 5b001c5720
commit 45388f2c12
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scsh/libscsh.scm
View File

@ -1,6 +1,4 @@
;;; This file is part of scsh. ;;; This file is part of scsh.
;;; Copyright (c) 2002 by Martin Gasbichler and Richard Kelsey.
;;; See file COPYING.
(define (return-from-vm n) (define (return-from-vm n)
(with-continuation (if #t #f) (lambda () n))) (with-continuation (if #t #f) (lambda () n)))
@ -29,20 +27,20 @@
(lambda (k) (lambda (k)
(with-handler (with-handler
(lambda (cond more) (lambda (cond more)
(display "error is "(current-error-port)) ; (display "error is "(current-error-port))
(display cond (current-error-port)) ; (display cond (current-error-port))
(newline (current-error-port)) ; (newline (current-error-port))
(k cond)) (k cond))
(lambda () (lambda ()
(eval s-exp (user-command-environment))))))) (eval s-exp (user-command-environment)))))))
(lambda args (lambda args
(cond ((null? args) (cond ((null? args)
(display "null as result" ; (display "null as result"
(current-error-port))) ; (current-error-port)))
((null? (cdr args)) ((null? (cdr args))
(display "evaluated to:" (current-error-port)) ; (display "evaluated to:" (current-error-port))
(display (car args)(current-error-port)) ; (display (car args)(current-error-port))
(newline (current-error-port)) ; (newline (current-error-port))
(car args)) (car args))
(else (else
(display "multiple return values in s48-command" (display "multiple return values in s48-command"
@ -51,6 +49,9 @@
(display "s48-command got not exactly one s-exp" (display "s48-command got not exactly one s-exp"
(current-error-port))))) (current-error-port)))))
;; TODO write a procedure to be called time by time to let the
;; administrative threads run
;; must be called from a running command processor ;; must be called from a running command processor
(define (dump-libscsh-image filename) (define (dump-libscsh-image filename)
(dump-scsh-program (startup (user-context)) filename)) (dump-scsh-program (startup (user-context)) filename))