steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

listener: don't crash if we forget the current vocab. Fixes #259.

John Benediktsson 2011-10-18 16:46:55 -07:00
parent 2d94935d1f
commit 66d19d7e1a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/listener/listener.factor
View File

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