comparison 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!"); }
+}
+