clean up polymorphic stack effects in fuel

db4
Joe Groff 2010-03-05 21:51:13 -08:00
parent 15e6a7fa5e
commit 48b433750b
1 changed files with 2 additions and 2 deletions

View File

@ -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 -- )