USING: compiler.cfg compiler.tree help.markup help.syntax quotations ;
IN: compiler.cfg.intrinsics.alien

HELP: inline-accessor
{ $values
  { "block" basic-block }
  { "#call" #call }
  { "quot" quotation }
  { "test" quotation }
  { "block'" basic-block }
}
{ $description "Combinator used to simplify writing intrinsic emitting code. If the 'test' quotation yields " { $link t } " when called on the '#call' nodes inputs, then the 'quot' quotation is used to emit intrinsic instructions. Otherwise a primitive call is emitted. " } ;