From 45e8d14a1f593389529d2da768f6b01cc48ff606 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 9 Feb 2009 01:16:23 -0600
Subject: [PATCH] Fix bad whitespace

---
 basis/listener/listener.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 4a5209976f..2ee0832269 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -18,7 +18,7 @@ GENERIC: stream-read-quot ( stream -- quot/f )
         [ 2drop f ] [ rethrow ] if
     ] recover ;
 
-: read-quot-loop  ( stream accum -- quot/f )
+: read-quot-loop ( stream accum -- quot/f )
     over stream-readln dup [
         over push
         dup read-quot-step dup