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

clean up polymorphic stack effects in fuel

Joe Groff 2010-03-05 21:51:13 -08:00
parent 3ba4805e29
commit 9b0a007b88
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/fuel/fuel.factor
View File

@ -55,14 +55,14 @@ SYMBOL: :uses-suggestions
PRIVATE> PRIVATE>
: fuel-use-suggested-vocabs ( suggestions quot -- ... ) : fuel-use-suggested-vocabs ( ..a suggestions quot: ( ..a -- ..b ) -- ..b )
[ :uses-suggestions set ] dip [ :uses-suggestions set ] dip
[ try-suggested-restarts rethrow ] recover ; inline [ try-suggested-restarts rethrow ] recover ; inline
: fuel-run-file ( path -- ) : fuel-run-file ( path -- )
[ fuel-set-use-hook run-file ] curry with-scope ; inline [ 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 [ auto-use? on fuel-set-use-hook call ] curry with-scope ; inline
: fuel-get-uses ( lines -- ) : fuel-get-uses ( lines -- )