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

Added channel->port.

This commit is contained in:
mainzelm 2001-11-27 11:08:30 +00:00
parent 3ab6cf122c
commit abf7c53cc5
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/newports.scm
View File

@ -608,6 +608,10 @@
(define-r4rs-output (force-output) output s48-force-output (define-r4rs-output (force-output) output s48-force-output
(values)) ; Do nothing if applied to a file descriptor. (values)) ; Do nothing if applied to a file descriptor.
;;; extend channel-i/o's version to fdports
;;; WARNING: evil procedure, bypasses port-lock
(define (port->channel port)
(fdport-data:channel (fdport-data port)))
(define (format dest cstring . args) (define (format dest cstring . args)
(if (integer? dest) (if (integer? dest)

3
scsh/scsh-interfaces.scm
View File

@ -126,7 +126,8 @@
set-fdes-status set-fdes-status
init-fdports! ;added by JMG init-fdports! ;added by JMG
port->channel ;overwrites channel-i/o
force-output force-output
set-port-buffering set-port-buffering
bufpol/block bufpol/block