[sawfish: 1/4] Handle ",quit" like EOF in sawfish-client.jl.

[Christopher Bratusek <chrisb src gnome org>]

commit 5ba12b143861983ae534e134e1d049d7edaa13f1
Author: Timo Korvola <tkorvola iki fi>
Date:   Sun Oct 25 17:05:31 2009 +0200

    Handle ",quit" like EOF in sawfish-client.jl.
    
    Do not use exceptions for something this simple.

 scripts/sawfish-client.jl |   10 +++-------
 1 files changed, 3 insertions(+), 7 deletions(-)
---
diff --git a/scripts/sawfish-client.jl b/scripts/sawfish-client.jl
index 4b03cab..c0c37ae 100644
--- a/scripts/sawfish-client.jl
+++ b/scripts/sawfish-client.jl
@@ -107,10 +107,8 @@ sawfish comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING\n"
 		   (let ((input (readline
 				 (format nil (if (repl-pending r) "" "%s> ")
 					 (repl-struct r)))))
-		     (when (equal ",quit\n" input)
-                       (throw 'bye nil)
-                       )
-		     (when input
+		     (when (and input
+                                (not (equal ",quit\n" input)))
 		       (let ((out (sawfish-client-eval
 				   `(progn
 				      (require 'rep.util.repl)
@@ -147,9 +145,7 @@ sawfish comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING\n"
   (sawfish-client-eval
    `(repl-completions ',(fluid current-repl) ',w)))
 
-(catch 'bye
-  (main)
-  )
+(main)
 
 (write standard-output "Bye.\n")