fuel.eval: re-use listener:parse-lines-interactive.

db4
John Benediktsson 2014-05-23 11:12:30 -07:00
parent db892f5b34
commit cc4c83783f
1 changed files with 4 additions and 4 deletions

View File

@ -1,8 +1,8 @@
! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays compiler.units continuations debugger
fuel.pprint io io.streams.string kernel namespaces parser sequences
vectors vocabs.parser ;
USING: accessors arrays continuations debugger fuel.pprint io
io.streams.string kernel listener namespaces sequences
vocabs.parser ;
IN: fuel.eval
@ -61,7 +61,7 @@ t fuel-eval-res-flag set-global
fuel-eval-output set-global fuel-send-retort fuel-pop-status ;
: (fuel-eval) ( lines -- )
[ [ parse-lines ] with-compilation-unit call( -- ) ] curry
[ parse-lines-interactive call( -- ) ] curry
[ [ fuel-eval-error set-global ] [ print-error ] bi ] recover ;
: (fuel-eval-usings) ( usings -- )