Merge branch 'master' of git://factorcode.org/git/factor
commit
132e264ac1
|
@ -5,8 +5,7 @@ hashtables kernel math namespaces sequences words
|
|||
inference.backend inference.dataflow system
|
||||
math.parser classes alien.arrays alien.c-types alien.structs
|
||||
alien.syntax cpu.architecture alien inspector quotations assocs
|
||||
kernel.private threads continuations.private libc combinators
|
||||
init ;
|
||||
kernel.private threads continuations.private libc combinators ;
|
||||
IN: alien.compiler
|
||||
|
||||
! Common protocol for alien-invoke/alien-callback/alien-indirect
|
||||
|
@ -302,7 +301,7 @@ M: alien-indirect generate-node
|
|||
! this hashtable, they will all be blown away by code GC, beware
|
||||
SYMBOL: callbacks
|
||||
|
||||
[ H{ } clone callbacks set-global ] "alien.compiler" add-init-hook
|
||||
callbacks global [ H{ } assoc-like ] change-at
|
||||
|
||||
: register-callback ( word -- ) dup callbacks get set-at ;
|
||||
|
||||
|
|
|
@ -111,6 +111,10 @@ SYMBOL: deploy-vocab
|
|||
builtins ,
|
||||
strip-io? [ io-backend , ] unless
|
||||
|
||||
deploy-compiler? get [
|
||||
"callbacks" "alien.compiler" lookup ,
|
||||
] when
|
||||
|
||||
strip-dictionary? [
|
||||
{
|
||||
dictionary
|
||||
|
|
Loading…
Reference in New Issue