diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 9d47bf8cc4..1c0dc9c480 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -55,14 +55,14 @@ SYMBOL: :uses-suggestions PRIVATE> -: fuel-use-suggested-vocabs ( suggestions quot -- ... ) +: fuel-use-suggested-vocabs ( ..a suggestions quot: ( ..a -- ..b ) -- ..b ) [ :uses-suggestions set ] dip [ try-suggested-restarts rethrow ] recover ; inline : fuel-run-file ( path -- ) [ fuel-set-use-hook run-file ] curry with-scope ; inline -: fuel-with-autouse ( ... quot: ( ... -- ... ) -- ... ) +: fuel-with-autouse ( ..a quot: ( ..a -- ..b ) -- ..b ) [ auto-use? on fuel-set-use-hook call ] curry with-scope ; inline : fuel-get-uses ( lines -- )