swank-picolisp

commit 63a06ba169dc09ae1aac88809e1b9ae744365a6b
parent 3d8389da7bd038f4d7426eb630d9f38523ff22c5
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 30 Apr 2011 13:25:30 +0200

fix event loop and implement swank:quit-lisp

Diffstat:
M
swank-picolisp.l
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/swank-picolisp.l b/swank-picolisp.l
@@ -71,8 +71,8 @@
    (=: sock Sock) )
 
 (dm loop> ()
-   (while T
-      (dispatch> This (read-packet> This)) ) )
+   (while (read-packet> This)
+      (dispatch> This @) ) )
 
 (dm read-packet> ()
    (in (: sock)
@@ -268,3 +268,6 @@
 
 (de swank:init-inspector (Form)
    )
+
+(de swank:quit-lisp ()
+   (bye) )