2016-08-31 20:16:30 -04:00
|
|
|
USING: compiler.cfg compiler.tree help.markup help.syntax kernel
|
2016-03-08 08:38:48 -05:00
|
|
|
kernel.private ;
|
2014-12-30 20:46:35 -05:00
|
|
|
IN: compiler.cfg.intrinsics.misc
|
|
|
|
|
|
|
|
HELP: emit-context-object
|
2016-03-08 08:38:48 -05:00
|
|
|
{ $values
|
|
|
|
{ "block" "current " { $link basic-block } }
|
|
|
|
{ "node" node }
|
|
|
|
{ "block'" basic-block }
|
|
|
|
}
|
2014-12-30 20:46:35 -05:00
|
|
|
{ $description "Emits intrinsic code for a call to the " { $link context-object } " primitive." } ;
|
2016-08-31 20:16:30 -04:00
|
|
|
|
|
|
|
HELP: emit-eq
|
|
|
|
{ $values { "node" node } }
|
|
|
|
{ $description "Intrinsic emitter for the " { $link eq? } " word." } ;
|