view src/samer/silk/JavaProcedure.java @ 0:bf79fb79ee13

Initial Mercurial check in.

package samer.silk;
import samer.core.*;
import jscheme.*;
import jsint.*;

//public class JavaProcedure implements SchemeProcedure {
public class JavaProcedure extends Procedure {
	public Object apply(Object [] args) {
		for (int i=0; i<args.length; i++) {
			Shell.trace("arg "+i+"="+args[i]);
		}
		return null;
	}

	public Object apply(Pair args) {
		Shell.trace("apply to Pair");
		return apply(U.listToVector(args));
	}
	public Object apply(SchemePair args) {
		Shell.trace("apply to SchemePair");
		return apply(U.listToVector(args));
	}


//	public void run() { Shell.print("run!"); }
}