clean up polymorphic stack effects in fuel
parent
15e6a7fa5e
commit
48b433750b
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue