     visible-vars.
     datastack datastack.
     input-stream get prompt prompt.
-
+    flush
     [
         read-quot [
             '[ [ datastack _ with-datastack ] with-ctrl-break ]


: prompt ( -- str )
    manifest get current-vocab>> [ name>> "IN: " prepend ] [ "" ] if*
    auto-use? get [ " auto-use" append ] when ;

SYMBOL: prompt-style
H{

} prompt-style set-global

M: object prompt.
    nip [ prompt-style get-global format bl ] unless-empty ;

SYMBOL: handle-ctrl-break

