]> gitweb.factorcode.org Git - factor.git/commitdiff
fuel: add ? to a couple words.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 19:33:27 +0000 (11:33 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 19:33:27 +0000 (11:33 -0800)
extra/fuel/fuel.factor

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