From e836615a605f4c86b0d56b1a90779d8b7457bdba Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 6 Sep 2019 16:17:51 -0700
Subject: 5630

---
 apps/assort       | Bin 40134 -> 40134 bytes
 apps/calls.subx   |  62 +++++++++++++++++++++++++++++++++++++++++++++++++-----
 apps/crenshaw2-1  | Bin 33868 -> 33868 bytes
 apps/crenshaw2-1b | Bin 34427 -> 34427 bytes
 apps/dquotes      | Bin 45338 -> 45338 bytes
 apps/factorial    | Bin 32880 -> 32880 bytes
 apps/handle       | Bin 33734 -> 33734 bytes
 apps/hex          | Bin 42527 -> 42527 bytes
 apps/pack         | Bin 52820 -> 52820 bytes
 apps/sigils       | Bin 52847 -> 52847 bytes
 apps/survey       | Bin 49417 -> 49417 bytes
 apps/tests        | Bin 38946 -> 38946 bytes
 12 files changed, 57 insertions(+), 5 deletions(-)

diff --git a/apps/assort b/apps/assort
index aa49e087..df5bd853 100755
Binary files a/apps/assort and b/apps/assort differ
diff --git a/apps/calls.subx b/apps/calls.subx
index 6768fe7f..1c8fcdeb 100644
--- a/apps/calls.subx
+++ b/apps/calls.subx
@@ -389,9 +389,6 @@ $next-word-string-or-expression-without-metadata:check-for-end-of-call:
     # . if (eax == '/') goto error3
     3d/compare-eax-and 0x2f/imm32/slash
     0f 84/jump-if-equal $next-word-string-or-expression-without-metadata:error3/disp32
-    # if (line->data[line->read] != ' ') goto error4
-    3d/compare-eax-and 0x20/imm32/space
-    0f 85/jump-if-not-equal $next-word-string-or-expression-without-metadata:error4/disp32
     # skip-chars-matching-whitespace(line)
     # . . push args
     56/push-esi
@@ -1120,7 +1117,7 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail
     81 0/subop/add %esp 8/imm32
     # check-ints-equal(slice->start, 0, msg)
     # . . push args
-    68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: start"/imm32
+    68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: start"/imm32
     68/push 0/imm32
     ff 6/subop/push *ecx
     # . . call
@@ -1129,7 +1126,62 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail
     81 0/subop/add %esp 0xc/imm32
     # check-ints-equal(slice->end, 0, msg)
     # . . push args
-    68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: end"/imm32
+    68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: end"/imm32
+    68/push 0/imm32
+    ff 6/subop/push *(ecx+4)
+    # . . call
+    e8/call check-ints-equal/disp32
+    # . . discard args
+    81 0/subop/add %esp 0xc/imm32
+    # . epilog
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
+test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren:
+    # . prolog
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    # setup
+    # . clear-stream(_test-input-stream)
+    # . . push args
+    68/push _test-input-stream/imm32
+    # . . call
+    e8/call clear-stream/disp32
+    # . . discard args
+    81 0/subop/add %esp 4/imm32
+    # var slice/ecx = {0, 0}
+    68/push 0/imm32/end
+    68/push 0/imm32/start
+    89/<- %ecx 4/r32/esp
+    # write(_test-input-stream, " )\n")
+    # . . push args
+    68/push " )\n"/imm32
+    68/push _test-input-stream/imm32
+    # . . call
+    e8/call write/disp32
+    # . . discard args
+    81 0/subop/add %esp 8/imm32
+    # next-word-string-or-expression-without-metadata(_test-input-stream, slice)
+    # . . push args
+    51/push-ecx
+    68/push _test-input-stream/imm32
+    # . . call
+    e8/call next-word-string-or-expression-without-metadata/disp32
+    # . . discard args
+    81 0/subop/add %esp 8/imm32
+    # check-ints-equal(slice->start, 0, msg)
+    # . . push args
+    68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: start"/imm32
+    68/push 0/imm32
+    ff 6/subop/push *ecx
+    # . . call
+    e8/call check-ints-equal/disp32
+    # . . discard args
+    81 0/subop/add %esp 0xc/imm32
+    # check-ints-equal(slice->end, 0, msg)
+    # . . push args
+    68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: end"/imm32
     68/push 0/imm32
     ff 6/subop/push *(ecx+4)
     # . . call
diff --git a/apps/crenshaw2-1 b/apps/crenshaw2-1
index 1527c069..73ea69a8 100755
Binary files a/apps/crenshaw2-1 and b/apps/crenshaw2-1 differ
diff --git a/apps/crenshaw2-1b b/apps/crenshaw2-1b
index 7e3f1984..c50483a7 100755
Binary files a/apps/crenshaw2-1b and b/apps/crenshaw2-1b differ
diff --git a/apps/dquotes b/apps/dquotes
index c6f46f08..98222863 100755
Binary files a/apps/dquotes and b/apps/dquotes differ
diff --git a/apps/factorial b/apps/factorial
index bbd8cf01..35e27ecf 100755
Binary files a/apps/factorial and b/apps/factorial differ
diff --git a/apps/handle b/apps/handle
index da5e3613..bfe24eaf 100755
Binary files a/apps/handle and b/apps/handle differ
diff --git a/apps/hex b/apps/hex
index 8ff8b296..8312b87a 100755
Binary files a/apps/hex and b/apps/hex differ
diff --git a/apps/pack b/apps/pack
index 1066018d..849f2e27 100755
Binary files a/apps/pack and b/apps/pack differ
diff --git a/apps/sigils b/apps/sigils
index ede25204..88ae4de2 100755
Binary files a/apps/sigils and b/apps/sigils differ
diff --git a/apps/survey b/apps/survey
index d3d9a604..9a142dac 100755
Binary files a/apps/survey and b/apps/survey differ
diff --git a/apps/tests b/apps/tests
index ac324f9f..24659a6d 100755
Binary files a/apps/tests and b/apps/tests differ
-- 
cgit 1.4.1-2-gfad0