FUEL: conflict resolution

[factor.git] / extra / fuel / eval / eval.factor

diff --git a/extra/fuel/eval/eval.factor b/extra/fuel/eval/eval.factor
index 019b9105bccffeda453321890b08e416fbfdf9bc..3f7ce863c7023dee38a455ff0be2486c078d9b4c 100644 (file)
--- a/extra/fuel/eval/eval.factor
+++ b/extra/fuel/eval/eval.factor
@@ -60,11 +60,11 @@ t fuel-eval-res-flag set-global
     [ print-error ] recover ;
 
 : (fuel-eval-usings) ( usings -- )
-    [ "USE: " prepend ] map
-    (fuel-eval) fuel-forget-error fuel-forget-output ;
+    [ [ use+ ] curry [ drop ] recover ] each
+    fuel-forget-error fuel-forget-output ;
 
 : (fuel-eval-in) ( in -- )
-    [ dup "IN: " prepend 1array (fuel-eval) in set ] when* ;
+    [ in set ] when* ;
 
 : (fuel-eval-in-context) ( lines in usings -- )
     (fuel-begin-eval)