another 5%

Author: andrew4328

Makefile

@@ -7,11 +7,8 @@ LSTSFLAGS = MALLOC_CHECK_=3
 # recursion is used fairly heavily
 # recommendation: ulimit -s unlimited
 
-dev: install-bootstrap
-	lm --v23 SRC/index.lsts
-	#lm --v23 --showallocgen tests/promises/lm-typecheck/tc-misc-2.lsts
-	gcc tmp.c
-	./a.out --v23 SRC/index.lsts
+dev: install-production
+	lm --v23 --showalloc SRC/index.lsts
 
 build: compile-production
 	time env $(LSTSFLAGS) ./production --v23 --c -o deploy1.c SRC/index.lsts

SRC/tctx-lookup.lsts

@@ -3,12 +3,13 @@ let .lookup(tctx: TypeContext?, key: CString): TypeContextRow = tctx.get-or(mk-t
 let .lookup(trs: List<TypeContextRow>, key: CString): TypeContextRow = (
    let default = NullTypeContextRow;
    let continue = true;
-   for list tr in trs { if continue {
+   while non-zero(trs) and continue {
+      let tr = head(trs); trs = tail(trs);
       if tr.key-or-zero == key {
          default = tr;
          continue = false;
       }
-   }};
+   };
    if not(non-zero(default)) {
       for vector tr in global-tctx.lookup(key, mk-vector(type(TypeContextRow)) ) {
          if tr.key-or-zero == key {
@@ -29,12 +30,13 @@ let .lookups(tctx: TypeContext?, key: CString): Vector<TypeContextRow> = tctx.ge
 let .lookups(trs: List<TypeContextRow>, key: CString): Vector<TypeContextRow> = (
    let default = mk-vector(type(TypeContextRow));
    let continue = true;
-   for list tr in trs { if continue {
+   while non-zero(trs) and continue {
+      let tr = head(trs); trs = tail(trs);
       if tr.key-or-zero == key {
          default = default.push(tr);
          continue = false;
       }
-   }};
+   };
    if continue {
       for vector tr in global-tctx.lookup(key, mk-vector(type(TypeContextRow)) ) {
          if tr.key-or-zero == key {
@@ -49,11 +51,12 @@ let .lookup-phi(tctx: TypeContext?, key: CString): PhiContextRow = tctx.get-or(m
 let .lookup(trs: List<PhiContextRow>, key: CString): PhiContextRow = (
    let default = NullPhiContextRow;
    let continue = true;
-   for list tr in trs { if continue {
+   while non-zero(trs) and continue {
+      let tr = head(trs); trs = tail(trs);
       if tr.phi-id-or-zero == key {
          default = tr;
          if not(tr.dead-on-arrival-or-zero) then continue = false;
       }
-   }};
+   };
    default
 );