deploy no regressiosn

Author: andrew4328

Makefile

@@ -2,14 +2,14 @@ CC = clang
 CFLAGS = -w -O2 -march=native -mtune=native
 
 dev: install-production
-	time lm --v23 tests/promises/string/prefix.lsts
+	time lm --v2 tests/promises/string/prefix.lsts
 	gcc tmp.c
 	./a.out
 
 build: compile-production
-	time ./production --v23 --c -o deploy1.c SRC/index.lsts
+	time ./production --v2 --c -o deploy1.c SRC/index.lsts
 	$(CC) $(CFLAGS) deploy1.c -o deploy1
-	time ./deploy1 --v23 --c -o deploy2.c SRC/index.lsts
+	time ./deploy1 --v2 --c -o deploy2.c SRC/index.lsts
 	diff deploy1.c deploy2.c
 	mv deploy1.c BOOTSTRAP/cli.c
 	rm -f deploy1 deploy1.c deploy2.c
@@ -19,7 +19,7 @@ deploy: build smoke-test
 deploy-lite: build smoke-test-lite
 
 valgrind: install-bootstrap
-	valgrind --tool=callgrind lm --v23 SRC/index.lsts
+	valgrind --tool=callgrind lm --v2 SRC/index.lsts
 
 valgrind-view:
 	callgrind_annotate callgrind.out.18778
@@ -35,7 +35,7 @@ gprof-view-call-graph:
 	gprof -q bootstrap.exe gmon.out
 
 profile: install-bootstrap
-	perf record lm --v23 SRC/index.lsts
+	perf record lm --v2 SRC/index.lsts
 	./report.sh
 
 compile-bootstrap:

PLUGINS/FRONTEND/LSTS/lsts-frontend.lsts

@@ -1,10 +1,8 @@
 
 let lsts-frontend(fp: CString): Nil = (
-   print("Parse \{fp}\n");
    if config-v1 and fp==c"lib/std/minimal.lsts" then fp = c"lib1/std/minimal.lsts";
    if (config-v3 or config-v23) and fp==c"lib/std/minimal.lsts" then fp = c"lib2/core/bedrock.lsts";
    if (config-v3 or config-v23) and fp==c"lib/std/compiler-only.lsts" then fp = c"lib2/core/compiler-only.lsts";
    lsts-parse(lsts-tokenize(fp));
-   print("Parsed \{fp}\n");
 );
 register-frontend(c".lsts", lsts-frontend);

PLUGINS/FRONTEND/LSTS/lsts-parse.lsts

@@ -193,11 +193,8 @@ let lsts-is-type-tag(s: CString): Bool = (
 );
 
 let lsts-parse(tokens: List<Token>): Nil = (
-   print("LSTS parse\n");
    while non-zero(tokens) {
-      print("LSTS parse 1\n");
       (let docx, tokens) = lsts-parse-doc(tokens);
-      print("LSTS parse After Doc\n");
       let prev-tokens = tokens;
       match tokens {
          [ Token{key:c"let"}.. _] => (
@@ -213,20 +210,14 @@ let lsts-parse(tokens: List<Token>): Nil = (
             ast-parsed-program = ast-parsed-program + bind;
          );
          [ Token{key:c"deprecated"}.. Token{key:c"macro"}.. rst] => (
-            print("Deprecated macro 1\n");
             (let mlhs, tokens) = lsts-parse-atom-without-tail(rst);
             let mrhs = ASTNil;
-            print("Deprecated macro 2\n");
             lsts-parse-expect(c"(",tokens); tokens = tail(tokens);
-            print("Deprecated macro 3\n");
             if lsts-parse-head(tokens)==c"let" then (mrhs, tokens) = lsts-parse-let(tokens)
             else (mrhs, tokens) = lsts-parse-atom(tokens);
-            print("Deprecated macro 4\n");
             lsts-parse-expect(c")",tokens); tokens = tail(tokens);
-            print("Deprecated macro 5\n");
             preprocess-macros = MSeq( close(preprocess-macros), Macro(mlhs.without-location, mrhs.without-location) );
             lsts-parse-expect(c";",tokens); tokens = tail(tokens);
-            print("Deprecated macro 5\n");
          );
          [ Token{key:c"interface"}.. _] => tokens = lsts-parse-interface(tokens);
          [ Token{key:c"import"}.. rest] => (
@@ -247,12 +238,10 @@ let lsts-parse(tokens: List<Token>): Nil = (
             lsts-parse-expect(c";",tokens); tokens = tail(tokens);
          );
       };
-      print("LSTS parse After Nibble\n");
       if is(prev-tokens, tokens) { fail("Unrecognized Token During Parsing: \{lsts-parse-head(tokens)}\n") };
       if non-zero(docx) { 
          ast-parsed-program = ast-parsed-program + mk-meta(docx);
       };
-      print("LSTS parse After After Nibble\n");
    };
 );
 

lib2/core/regex.lsts

@@ -36,7 +36,6 @@ let .has-prefix(text: String, rgx: Regex): Bool = (
       a4 as C<"regmatch_t">[],
       a5
    );
-   print("Has prefix status=\{status as U64}, rm_so=\{a4[0].rm_so as U64}, rm_eo=\{a4[0].rm_eo as U64}\n");
    status != reg_nomatch() and a4[0].rm_so==0
 );