fuel.eval: some minor cleanup.

diff --git a/extra/fuel/eval/eval.factor b/extra/fuel/eval/eval.factor
index 3bd80e9be372ad1959df5e95d53f222dc2aaf7a1..1620ce345ecee0fd77eea2bd81d23b09167b8e3f 100644 (file)
--- a/extra/fuel/eval/eval.factor
+++ b/extra/fuel/eval/eval.factor
@@ -35,12 +35,12 @@ t fuel-eval-res-flag set-global
     fuel-eval-restartable? [ drop ] [ clone restarts set-global ] if ;
 
 : fuel-pop-status ( -- )
-    fuel-status-stack get empty? [
-        fuel-status-stack get pop
+    fuel-status-stack get [
+        pop
         [ manifest>> clone manifest set ]
         [ restarts>> fuel-pop-restarts ]
         bi
-    ] unless ;
+    ] unless-empty ;
 
 : fuel-forget-error ( -- ) f fuel-eval-error set-global ;
 : fuel-forget-result ( -- ) f fuel-eval-result set-global ;
@@ -65,8 +65,7 @@ t fuel-eval-res-flag set-global
     [ [ fuel-eval-error set-global ] [ print-error ] bi ] recover ;
 
 : (fuel-eval-usings) ( usings -- )
-    [ [ use-vocab ] curry [ drop ] recover ] each
-    fuel-forget-error fuel-forget-output ;
+    [ [ use-vocab ] curry [ drop ] recover ] each ;
 
 : (fuel-eval-in) ( in -- )
     [ set-current-vocab ] when* ;