funcall1() публичный Метод

public funcall1 ( Object a1 ) : Object
a1 Object
Результат Object
Пример #1
0
        public static Object eval_funcall_1( procedure  fun,
					   Object     a0 )
        {
            return fun.funcall1( a0 );
        }
Пример #2
0
        public static Object __EVMEANING_ADDRESS_SET( procedure  f,
						    Object     v )
        {
            f.funcall1( v );
            return unspecified._unspecified;
        }
Пример #3
0
        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;
        }