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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/fuel/eval/eval.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2009 Jose Antonio Ortega Ruiz. ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays compiler.units continuations debugger USING: accessors arrays continuations debugger fuel.pprint io
fuel.pprint io io.streams.string kernel namespaces parser sequences io.streams.string kernel listener namespaces sequences
vectors vocabs.parser ; vocabs.parser ;
IN: fuel.eval 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-output set-global fuel-send-retort fuel-pop-status ;
: (fuel-eval) ( lines -- ) : (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-error set-global ] [ print-error ] bi ] recover ;
: (fuel-eval-usings) ( usings -- ) : (fuel-eval-usings) ( usings -- )