C++ (Cpp) rep_call_lisp0 Examples

Example #1

File: origin.c Project: OpenInkpot-archive/iplinux-librep

		  ? start_line : rep_FILE (stream)->line_number);

    item->next = buckets[HASH (form)];
    buckets[HASH (form)] = item;

    Fprimitive_guardian_push (guardian, form);
}

DEFUN ("call-with-lexical-origins", Fcall_with_lexical_origins,
       Scall_with_lexical_origins, (repv thunk), rep_Subr1)
{
    rep_bool old_record_origins = rep_record_origins;
    repv result;

    rep_record_origins = rep_TRUE;
    result = rep_call_lisp0 (thunk);
    rep_record_origins = old_record_origins;

    return result;
}

DEFUN ("lexical-origin", Flexical_origin,
       Slexical_origin, (repv form), rep_Subr1)
{
    origin_item *item;

    if (rep_FUNARGP (form))
	form = rep_FUNARG (form)->fun;

    if (!rep_CONSP (form))
	return Qnil;

Example #2

File: gh.c Project: SawfishWM/librep

repv gh_call0 (repv proc)
{
    return rep_call_lisp0 (proc);
}