Handbook
Glossary
initialize-alien ( symbol quot -- )
Vocabulary
alien
Inputs
symbol
an
object
quot
an
object
Outputs
None
Definition
USING:
accessors
alien.private
kernel
namespaces
;
IN:
alien
:
initialize-alien
( symbol quot -- )
swap
dup
get-global
dup
recompute-value?
[
drop
[
call
dup
31337
<alien>
expiry-check
boa
]
dip
set-global
]
[
2nip
object>>
]
if
;
inline