[Wisp-cvs] wisp/doc/examples rawkey.wisp,1.8,1.9

[<di...@us...>]

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))