From 66d19d7e1a9349ae1d068e62d41baf2dfc9eeb5f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 18 Oct 2011 16:46:55 -0700
Subject: [PATCH] listener: don't crash if we forget the current vocab.  Fixes
 #259.

---
 basis/listener/listener.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 71b1457725..ea70a4ca46 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -12,8 +12,8 @@ GENERIC: stream-read-quot ( stream -- quot/f )
 GENERIC# prompt. 1 ( stream prompt -- )
 
 : prompt ( -- str )
-    current-vocab name>> auto-use? get [ " - auto" append ] when
-    "( " " )" surround ;
+    manifest get current-vocab>> [ name>> ] [ "" ] if*
+    auto-use? get [ " - auto" append ] when "( " " )" surround ;
 
 M: object prompt.
     nip H{ { background T{ rgba f 1 0.7 0.7 1 } } } format bl