bootstrap failure fix

cvs
Slava Pestov 2005-03-30 01:03:55 +00:00
parent 6ac4c9900f
commit e48596b41f
1 changed files with 4 additions and 0 deletions

View File

@ -110,6 +110,8 @@ SYMBOL: alien-parameters
[ set-alien-parameters ] keep
set-alien-returns ;
DEFER: alien-invoke
: infer-alien-invoke ( -- )
\ alien-invoke "infer-effect" word-prop car ensure-d
pop-literal
@ -123,6 +125,8 @@ SYMBOL: alien-parameters
cons #alien-global dataflow,
set-alien-returns ;
DEFER: alien-global
: infer-alien-global ( -- )
\ alien-global "infer-effect" word-prop car ensure-d
pop-literal