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

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

Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv25146/doc/examples

Modified Files:
	rawkey.wisp 
Log Message:
Dropped |sys:raw:ioctl|.

Index: rawkey.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/rawkey.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- rawkey.wisp	22 Jul 2002 14:53:06 -0000	1.7
+++ rawkey.wisp	18 Sep 2002 20:54:23 -0000	1.8
@@ -11,10 +11,10 @@
 (print "Type #\\q in order to quit.\n\n")
 
 (my termios (tcgetattr-raw *stdin*)
- (cfmakeraw *stdin*)
- (let (loop)
-  (my k (read-key *stdin*)
-   (print "You typed $[k]\r\n")
-   (if (not (eq? k #\q))
-    (loop))))
- (tcsetattr-raw *stdin* 'now termios))
+  (cfmakeraw *stdin*)
+  (let (loop)
+    (my k (read-key *stdin*)
+      (print "You typed $[k]\r\n")
+      (if (not (eqv? k #\q))
+        (loop))))
+  (tcsetattr-raw *stdin* 'now termios))