public static Object eval_funcall_1( procedure fun,
Object a0 )
{
return fun.funcall1( a0 );
}
public static Object __EVMEANING_ADDRESS_SET( procedure f,
Object v )
{
f.funcall1( v );
return unspecified._unspecified;
}
public static Object call_cc( procedure p )
{
exit saved= (exit)bgldynamic.abgldynamic.get().exitd_top;
exit me= (exit) setexit();
Object r;
PUSH_EXIT( me, 1 );
try
{
if (PROCEDURE_CORRECT_ARITYP( p, 1 ))
{
r= p.funcall1( new callcc() );
bgldynamic.abgldynamic.get().exitd_top= saved;
}
else
{
r= null;
fail( "call/cc", "Wrong arity", p );
}
}
catch (bexception x)
{
r= debug_handler( x, me );
bgldynamic.abgldynamic.get().exitd_top= saved;
}
return r;
}
