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

fuel.eval: some minor cleanup.

db4
John Benediktsson 2011-09-18 20:35:16 -07:00
parent 2a72c5c34d
commit e422187be1
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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* ;