Beginning work on infix operators in mexprs.

resources/apply-2.mexpr.lsp

@@ -18,5 +18,4 @@ apply[fn;args;a] = [
                                 cons[cons[cadr[fn];caddr[fn]]; a]];
     eq[car[fn]; FUNARG] -> apply[cadr[fn]; args; caddr[fn]];
     eq[car[fn]; LAMBDA] -> eval[caddr[fn]; nconc[pair[cadr[fn]; args]; a]];
-    T -> apply[eval[fn;a]; args; a]]
-
+    T -> apply[eval[fn;a]; args; a]]

resources/ff.mexpr.lsp

@@ -0,0 +1,3 @@
+;; From page 6 of Lisp 1.5 Programmer's Manual
+
+ff[x]=[atom[x] -> x; T -> ff[car[x]]]

resources/gcd.mexpr.lsp

@@ -0,0 +1,3 @@
+gcd[x;y] = [x>y -> gcd[y;x];
+            rem[y;x] = 0 -> x;
+            T -> gcd[rem[y;x];x]]