16 lines
460 B
Factor
16 lines
460 B
Factor
USING: compiler.cfg compiler.tree help.markup help.syntax kernel
|
|
kernel.private ;
|
|
IN: compiler.cfg.intrinsics.misc
|
|
|
|
HELP: emit-context-object
|
|
{ $values
|
|
{ "block" "current " { $link basic-block } }
|
|
{ "node" node }
|
|
{ "block'" basic-block }
|
|
}
|
|
{ $description "Emits intrinsic code for a call to the " { $link context-object } " primitive." } ;
|
|
|
|
HELP: emit-eq
|
|
{ $values { "node" node } }
|
|
{ $description "Intrinsic emitter for the " { $link eq? } " word." } ;
|