From ea66922b91386fe2c23262e0c9cc62652d896cb3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 22 Jan 2018 11:33:27 -0800 Subject: [PATCH] fuel: add ? to a couple words. --- extra/fuel/fuel.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 7768102915..6e847cf625 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -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 ( -- )