samer@0: package samer.silk;
samer@0: import samer.core.*;
samer@0: import jscheme.*;
samer@0: import jsint.*;
samer@0: 
samer@0: //public class JavaProcedure implements SchemeProcedure {
samer@0: public class JavaProcedure extends Procedure {
samer@0: 	public Object apply(Object [] args) {
samer@0: 		for (int i=0; i<args.length; i++) {
samer@0: 			Shell.trace("arg "+i+"="+args[i]);
samer@0: 		}
samer@0: 		return null;
samer@0: 	}
samer@0: 
samer@0: 	public Object apply(Pair args) {
samer@0: 		Shell.trace("apply to Pair");
samer@0: 		return apply(U.listToVector(args));
samer@0: 	}
samer@0: 	public Object apply(SchemePair args) {
samer@0: 		Shell.trace("apply to SchemePair");
samer@0: 		return apply(U.listToVector(args));
samer@0: 	}
samer@0: 
samer@0: 
samer@0: //	public void run() { Shell.print("run!"); }
samer@0: }
samer@0: