unmaintained/lisp/listener/mod/mod.factor

   1 ! Broken by recent changes
   2
   3 USING: kernel continuations namespaces parser combinators tuples generic vars ;
   4 !
   5 IN: listener
   6 !
   7 ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   8 !
   9 VAR: listener-lexer
  10 !
  11 ! [ <lexer> ] listener-lexer set-global
  12 !
  13 ! : listener-parse-lines ( lines -- quot ) listener-lexer> call (parse-lines) ;
  14 !
  15 ! : parse-interactive-step ( lines -- quot/f )
  16 ! [ listener-parse-lines ] catch {
  17 !     { [ dup [ unexpected-eof? ] is? ] [ 2drop f ] }
  18 !     { [ dup not ]                   [ drop ] }
  19 !     { [ t ]                         [ rethrow ] }
  20 ! } cond ;