From cc4c83783f51d65766e2d7dbfff02dcc5cfeca37 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 23 May 2014 11:12:30 -0700 Subject: [PATCH] fuel.eval: re-use listener:parse-lines-interactive. --- extra/fuel/eval/eval.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/fuel/eval/eval.factor b/extra/fuel/eval/eval.factor index 1620ce345e..644d0024b2 100644 --- a/extra/fuel/eval/eval.factor +++ b/extra/fuel/eval/eval.factor @@ -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 -- )