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

Added forgotten with-error-output-port stuff.

This commit is contained in:
mainzelm 2002-02-14 13:30:53 +00:00
parent 504cfb6326
commit 36c5c82ec3
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/newports.scm
View File

@ -631,6 +631,9 @@
(define (with-current-error-port* port thunk) (define (with-current-error-port* port thunk)
(let-fluid $current-error-port port thunk)) (let-fluid $current-error-port port thunk))
(define (with-error-output-port* port thunk)
(let-fluid $current-error-port port thunk))
(define-simple-syntax (with-current-input-port port body ...) (define-simple-syntax (with-current-input-port port body ...)
(with-current-input-port* port (lambda () body ...))) (with-current-input-port* port (lambda () body ...)))
@ -640,6 +643,8 @@
(define-simple-syntax (with-current-error-port port body ...) (define-simple-syntax (with-current-error-port port body ...)
(with-current-error-port* port (lambda () body ...))) (with-current-error-port* port (lambda () body ...)))
(define-simple-syntax (with-error-output-port port body ...)
(with-error-output-port* port (lambda () body ...)))
;;; set-foo-port! procs ;;; set-foo-port! procs
;;; ------------------- ;;; -------------------
@ -648,6 +653,7 @@
(define (set-current-input-port! port) (set-fluid! $current-input-port port)) (define (set-current-input-port! port) (set-fluid! $current-input-port port))
(define (set-current-output-port! port) (set-fluid! $current-output-port port)) (define (set-current-output-port! port) (set-fluid! $current-output-port port))
(define (set-current-error-port! port) (set-fluid! $current-error-port port)) (define (set-current-error-port! port) (set-fluid! $current-error-port port))
(define (set-error-output-port! port) (set-fluid! $current-error-port port))
;;; call-with-foo-file with-foo-to-file ;;; call-with-foo-file with-foo-to-file

3
scsh/scsh-interfaces.scm
View File

@ -191,9 +191,12 @@
(with-current-output-port :syntax) (with-current-output-port :syntax)
with-current-error-port* with-current-error-port*
(with-current-error-port :syntax) (with-current-error-port :syntax)
with-error-output-port*
(with-error-output-port :syntax)
set-current-input-port! set-current-input-port!
set-current-output-port! set-current-output-port!
set-current-error-port! set-current-error-port!
set-error-output-port!
stdports->stdio stdports->stdio
stdio->stdports stdio->stdports