From b60a4f4ade1abf8756edb817122434f612fcddce Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 31 Jan 2008 00:52:24 -0600
Subject: [PATCH] Clean up listener

---
 core/listener/listener.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/core/listener/listener.factor b/core/listener/listener.factor
index 8f26ddf9b2..02cd727930 100755
--- a/core/listener/listener.factor
+++ b/core/listener/listener.factor
@@ -18,11 +18,10 @@ GENERIC: stream-read-quot ( stream -- quot/f )
     [ parse-lines in get ] with-compilation-unit in set ;
 
 : read-quot-step ( lines -- quot/f )
-    [ parse-lines-interactive ] catch {
-        { [ dup delegate unexpected-eof? ] [ 2drop f ] }
-        { [ dup not ] [ drop ] }
-        { [ t ] [ rethrow ] }
-    } cond ;
+    [ parse-lines-interactive ] [
+        dup delegate unexpected-eof?
+        [ 2drop f ] [ rethrow ] if
+    ] recover ;
 
 : read-quot-loop  ( stream accum -- quot/f )
     over stream-readln dup [