Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv32556/doc/examples
Modified Files:
rawkey.wisp
Log Message:
Replaced |*stdin*|, |*stdout*|, and |*stderr*| with |current-input-port|, |current-output-port|, and |current-errors-port|.
Index: rawkey.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/rawkey.wisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- rawkey.wisp 18 Sep 2002 20:54:23 -0000 1.8
+++ rawkey.wisp 18 Sep 2002 21:11:05 -0000 1.9
@@ -10,11 +10,11 @@
(print "Type #\\q in order to quit.\n\n")
-(my termios (tcgetattr-raw *stdin*)
- (cfmakeraw *stdin*)
+(my termios (tcgetattr-raw (current-input-port))
+ (cfmakeraw (current-input-port))
(let (loop)
- (my k (read-key *stdin*)
+ (my k (read-key (current-input-port))
(print "You typed $[k]\r\n")
(if (not (eqv? k #\q))
(loop))))
- (tcsetattr-raw *stdin* 'now termios))
+ (tcsetattr-raw (current-input-port) 'now termios))
|
