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

Fixed typo in error message.

This commit is contained in:
mainzelm 2003-03-03 09:43:17 +00:00
parent a39ab12bc0
commit cc3f5b07bc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/newports.scm
View File

@ -623,7 +623,7 @@
(let ((stream (:optional maybe-i/o (current-output-port)))) (let ((stream (:optional maybe-i/o (current-output-port))))
(cond ((output-port? stream) (s48name arg ... stream)) (cond ((output-port? stream) (s48name arg ... stream))
((integer? stream) body ...) ((integer? stream) body ...)
(else (error "Not a outport or file descriptor" stream)))))) (else (error "Not an outport or file descriptor" stream))))))
;;; This one depends upon S48's string ports. ;;; This one depends upon S48's string ports.
(define-r4rs-output (display object) output s48-display (define-r4rs-output (display object) output s48-display