From 3c992f4a13b27ff56e5fe394c5fecf4257549b81 Mon Sep 17 00:00:00 2001
From: Ian Piumarta <piumarta@gmail.com>
Date: Thu, 9 May 2024 10:18:28 +0900
Subject: [PATCH] Remove primitive makeForm (because Closure.fixed is now
 accessibe from userland).

---
 minproto.leg | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/minproto.leg b/minproto.leg
index 41668f3..669f362 100644
--- a/minproto.leg
+++ b/minproto.leg
@@ -1,6 +1,6 @@
 # minproto.leg -- minimal prototype langauge for semantic experiments
 #
-# last edited: 2024-05-09 10:09:56 by piumarta on zora-1034.local
+# last edited: 2024-05-09 10:17:11 by piumarta on zora-1034.local
 
 %{
 ;
@@ -2291,19 +2291,6 @@ oop prim_env(oop func, oop self, oop args, oop env)
     return env;
 }
 
-oop prim_makeForm(oop func, oop self, oop args, oop env)
-{
-    int argc     = _get(args, Object,isize);
-    oop *indexed = _get(args, Object,indexed);
-    oop result   = nil;
-    for (int i = 0;  i < argc;  ++i) {
-	result = indexed[i];
-	if (!isClosure(result)) fatal("makeForm: argument must be closure");
-	Object_put(result, sym_fixed, sym_t);
-    }
-    return result;
-}
-
 oop prim_eval(oop func, oop self, oop args, oop env)
 {
     int argc     = _get(args, Object,isize);
@@ -2531,7 +2518,6 @@ int main(int argc, char **argv)
     macros = Object_put(pSymbol, intern("macros"), new(pObject));
 
     _set(intern("__env__"    ), Symbol,value, newPrimitive(prim_env));
-    _set(intern("makeForm"   ), Symbol,value, newPrimitive(prim_makeForm));
     _set(intern("eval"       ), Symbol,value, newPrimitive(prim_eval));
     _set(intern("print"      ), Symbol,value, newPrimitive(prim_print));
     _set(intern("codeString" ), Symbol,value, newPrimitive(prim_codeString));