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

added dfishers steal-port stuff

This commit is contained in:
marting 1999-09-16 16:50:17 +00:00
parent 0c1015a8f0
commit dd5c5ebc81
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/interfaces.scm
View File

@ -442,6 +442,11 @@
(export current-input-port current-output-port (export current-input-port current-output-port
close-output-port close-input-port close-output-port close-input-port
;; Added for scsh -dfisher and JMG;;
$current-input-port
$current-output-port
$current-error-port
;; end of additions. ;;
char-ready? char-ready?
read-block write-block read-block write-block
newline newline
@ -486,6 +491,8 @@
really-force-output ; assumes port alread locked really-force-output ; assumes port alread locked
output-port-forcers ;root-scheduler.scm output-port-forcers ;root-scheduler.scm
steal-port! ; JMG: for scsh
call-with-current-input-port call-with-current-input-port
call-with-current-output-port call-with-current-output-port
@ -500,6 +507,7 @@
waiting-for-i/o? ;scheduler waiting-for-i/o? ;scheduler
steal-channel-port! ;command steal-channel-port! ;command
steal-channel! ;JMG: For scsh.
input-channel->port ;usual-resumer posix input-channel->port ;usual-resumer posix
output-channel->port ;usual-resumer posix output-channel->port ;usual-resumer posix