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

Cleanup

slava 2006-02-11 07:34:33 +00:00
parent 1f153c24b2
commit e6bc188bad
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/alien/alien-callback.factor
View File

@ -44,9 +44,10 @@ M: alien-callback-error summary ( error -- )
callback-bottom callback-bottom
] "infer" set-word-prop ] "infer" set-word-prop
: linearize-callback ( node -- linear ) : linearize-callback ( node -- )
[ %prologue , alien-callback-word %jump , ] { } make ; dup alien-callback-xt [
alien-callback-word %jump ,
] make-linear ;
M: alien-callback linearize* ( node -- ) M: alien-callback linearize* ( node -- )
dup linearize-callback over alien-callback-xt dup linearize-callback linearize-next ;
linearized get set-hash linearize-next ;