src/object/primitive.cc
rObject
    Primitive::apply(rList args)
    {
      if (args->value_get().empty())
        RAISE("list of arguments must begin with `this'");
      objects_type a = args->value_get();
      return
        eval::call_apply(::kernel::runner(), this, SYMBOL(apply), a);
    }
// FIXME: Code duplication with Code::apply.  Maybe there are more
// opportunity to factor.
Code duplication with Code::apply.  Maybe there are more
opportunity to factor.
Code duplication with Code :: apply . Maybe there are more opportunity to factor .
rObject
    Primitive::apply(rList args)
    {
      if (args->value_get().empty())
        RAISE("list of arguments must begin with `this'");
      objects_type a = args->value_get();
      return
        eval::call_apply(::kernel::runner(), this, SYMBOL(apply), a);
    }
rObject Primitive :: apply ( rList args ) { if ( args -> value_get ( ) . empty ( ) ) RAISE ( " " ) ; objects_type a = args -> value_get ( ) ; return eval :: call_apply ( :: kernel :: runner ( ) , this , SYMBOL ( apply ) , a ) ; }
FIXME: Code duplication with Code::apply.
FIXME : Code duplication with Code :: apply .