! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: assembler
USING: alien compiler inference kernel kernel-internals lists
math memory namespaces words ;

\ alien-invoke [
    uncons load-dll dlsym compile-call-far
] "generator" set-word-prop

#parameters [
    dup 0 = [ drop ] [ 1 1 rot SUBI ] ifte
] "generator" set-word-prop

: stack@ cell * neg cell - ;

#unbox [
    uncons f dlsym compile-call-far
    3 1 rot stack@ STW
] "generator" set-word-prop

#parameter [
    dup 3 + 1 rot stack@ LWZ
] "generator" set-word-prop

#box [
    f dlsym compile-call-far
] "generator" set-word-prop

#cleanup [
    dup 0 = [ drop ] [ 1 1 rot ADDI ] ifte
] "generator" set-word-prop