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

fuel: add ? to a couple words.

factor-shell
John Benediktsson 2018-01-22 11:33:27 -08:00
parent 3c12d2575f
commit ea66922b91
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/fuel.factor
View File

@ -29,19 +29,19 @@ IN: fuel
SYMBOL: :uses SYMBOL: :uses
SYMBOL: :uses-suggestions SYMBOL: :uses-suggestions
: is-use-restart ( restart -- ? ) : is-use-restart? ( restart -- ? )
name>> [ "Use the " head? ] [ " vocabulary" tail? ] bi and ; name>> [ "Use the " head? ] [ " vocabulary" tail? ] bi and ;
: get-restart-vocab ( restart -- vocab/f ) : get-restart-vocab ( restart -- vocab/f )
obj>> dup word? [ vocabulary>> ] [ drop f ] if ; obj>> dup word? [ vocabulary>> ] [ drop f ] if ;
: is-suggested-restart ( restart -- ? ) : is-suggested-restart? ( restart -- ? )
dup is-use-restart [ dup is-use-restart? [
get-restart-vocab :uses-suggestions get member? get-restart-vocab :uses-suggestions get member?
] [ drop f ] if ; ] [ drop f ] if ;
: try-suggested-restarts ( -- ) : try-suggested-restarts ( -- )
restarts get [ is-suggested-restart ] filter restarts get [ is-suggested-restart? ] filter
dup length 1 = [ first continue-restart ] [ drop ] if ; dup length 1 = [ first continue-restart ] [ drop ] if ;
: set-use-hook ( -- ) : set-use-hook ( -- )