>>>>> "Ed" == Ed Kademan <kademan@phz.com> writes:
Ed> There is a form called `with-error-output-port' documented in the scsh
Ed> manual but it doesn't seem to exist in scsh-0.6.0, unless I am missing
Ed> something.
Ed> Starting scheme ...
Ed> ILISP V5.11.1 Use M-x ilisp-bug for problems and suggestions.
Ed> Welcome to scsh 0.6.0 (Chinese Democracy)
Ed> Type ,? for help.
>>
>> with-error-output-port
Ed> Error: undefined variable
>> with-error-output-port
>> (package user)
1> ,reset
Ed> Top level
>>
>> with-error-output-port*
Ed> Error: undefined variable
>> with-error-output-port*
>> (package user)
Ed> Is this right? If so is there some other form or procedure that does
Ed> the equivalent thing?
error-output-port is internally mapped to current-error-port. However,
I forgot to provide this mapping for with-error-output-port* too. So
you can either use with-current-error-port or apply the following
patches which will be in 0.6.1:
Index: newports.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/newports.scm,v
retrieving revision 1.18
diff -c -r1.18 newports.scm
*** newports.scm 3 Jan 2002 10:18:40 -0000 1.18
--- newports.scm 14 Feb 2002 07:45:13 -0000
***************
*** 631,636 ****
--- 631,639 ----
(define (with-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 ...)
(with-current-input-port* port (lambda () body ...)))
***************
*** 640,645 ****
--- 643,650 ----
(define-simple-syntax (with-current-error-port port 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
;;; -------------------
***************
*** 648,653 ****
--- 653,659 ----
(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-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
Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-interfaces.scm,v
retrieving revision 1.30
diff -c -r1.30 scsh-interfaces.scm
*** scsh-interfaces.scm 7 Jan 2002 13:11:55 -0000 1.30
--- scsh-interfaces.scm 14 Feb 2002 08:00:09 -0000
***************
*** 191,199 ****
--- 191,202 ----
(with-current-output-port :syntax)
with-current-error-port*
(with-current-error-port :syntax)
+ with-error-output-port*
+ (with-error-output-port :syntax)
set-current-input-port!
set-current-output-port!
set-current-error-port!
+ set-error-output-port!
stdports->stdio
stdio->stdports
--
Martin
|