5778

15 files changed, 19 insertions, 19 deletions

diff --git a/apps/assort b/apps/assort
index 323d8705..adfa83e4 100755
--- a/apps/assort
+++ b/apps/assort
Binary files differdiff --git a/apps/braces b/apps/braces
index 94109822..4d97a055 100755
--- a/apps/braces
+++ b/apps/braces
Binary files differdiff --git a/apps/calls b/apps/calls
index 00c502c5..2b3b2d7d 100755
--- a/apps/calls
+++ b/apps/calls
Binary files differdiff --git a/apps/crenshaw2-1 b/apps/crenshaw2-1
index 8a1a05a1..4a2ba7e2 100755
--- a/apps/crenshaw2-1
+++ b/apps/crenshaw2-1
Binary files differdiff --git a/apps/crenshaw2-1b b/apps/crenshaw2-1b
index c9dff7c7..7c1e0750 100755
--- a/apps/crenshaw2-1b
+++ b/apps/crenshaw2-1b
Binary files differdiff --git a/apps/dquotes b/apps/dquotes
index 4a326cfd..268750aa 100755
--- a/apps/dquotes
+++ b/apps/dquotes
Binary files differdiff --git a/apps/factorial b/apps/factorial
index 5f822d01..6ac5f45e 100755
--- a/apps/factorial
+++ b/apps/factorial
Binary files differdiff --git a/apps/handle b/apps/handle
index ba457735..43f9af2a 100755
--- a/apps/handle
+++ b/apps/handle
Binary files differdiff --git a/apps/hex b/apps/hex
index 8a6e8311..ab9b30e8 100755
--- a/apps/hex
+++ b/apps/hex
Binary files differdiff --git a/apps/mu b/apps/mu
index a09943a1..95e05d0f 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differdiff --git a/apps/mu.subx b/apps/mu.subx
index 3cff705d..b3bb3fa8 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -845,12 +845,12 @@ test-function-header-with-arg:
     # convert
     (populate-mu-function-header _test-input-stream %ecx)
     # check result
-    (check-string-equal *ecx "foo" "F - test-function-header-with-arg/name")  # Function-name
+    (check-strings-equal *ecx "foo" "F - test-function-header-with-arg/name")  # Function-name
     # edx : (address list var) = result->inouts
     8b/-> *(ecx+8) 2/r32/edx  # Function-inouts
     # ebx : (address var) = result->inouts->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "n" "F - test-function-header-with-arg/inout:0")  # Var-name
+    (check-strings-equal *ebx "n" "F - test-function-header-with-arg/inout:0")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type")  # Var-type
     # . epilogue
     89/<- %esp 5/r32/ebp
@@ -872,24 +872,24 @@ test-function-header-with-multiple-args:
     # convert
     (populate-mu-function-header _test-input-stream %ecx)
     # check result
-    (check-string-equal *ecx "foo")  # Function-name
+    (check-strings-equal *ecx "foo")  # Function-name
     # edx : (address list var) = result->inouts
     8b/-> *(ecx+8) 2/r32/edx  # Function-inouts
     # ebx : (address var) = result->inouts->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0")  # Var-name
+    (check-strings-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type")  # Var-type
     # edx = result->inouts->next
     8b/-> *(edx+4) 2/r32/edx  # List-next
     # ebx = result->inouts->next->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1")  # Var-name
+    (check-strings-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:1/type")  # Var-type
     # edx = result->inouts->next->next
     8b/-> *(edx+4) 2/r32/edx  # List-next
     # ebx = result->inouts->next->next->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2")  # Var-name
+    (check-strings-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:2/type")  # Var-type
     # . epilogue
     89/<- %esp 5/r32/ebp
@@ -911,39 +911,39 @@ test-function-with-multiple-args-and-outputs:
     # convert
     (populate-mu-function-header _test-input-stream %ecx)
     # check result
-    (check-string-equal *ecx "foo")  # Function-name
+    (check-strings-equal *ecx "foo")  # Function-name
     # edx : (address list var) = result->inouts
     8b/-> *(ecx+8) 2/r32/edx  # Function-inouts
     # ebx : (address var) = result->inouts->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0")  # Var-name
+    (check-strings-equal *ebx "a" "F - test-function-header-with-multiple-args/inout:0")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:0/type")  # Var-type
     # edx = result->inouts->next
     8b/-> *(edx+4) 2/r32/edx  # List-next
     # ebx = result->inouts->next->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1")  # Var-name
+    (check-strings-equal *ebx "b" "F - test-function-header-with-multiple-args/inout:1")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:1/type")  # Var-type
     # edx = result->inouts->next->next
     8b/-> *(edx+4) 2/r32/edx  # List-next
     # ebx = result->inouts->next->next->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2")  # Var-name
+    (check-strings-equal *ebx "c" "F - test-function-header-with-multiple-args/inout:2")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/inout:2/type")  # Var-type
     # edx : (address list var) = result->outputs
     8b/-> *(ecx+0xc) 2/r32/edx  # Function-outputs
     # ebx : (address var) = result->outputs->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "x" "F - test-function-header-with-multiple-args/output:0")  # Var-name
+    (check-strings-equal *ebx "x" "F - test-function-header-with-multiple-args/output:0")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/output:0/type")  # Var-type
-    (check-string-equal *(ebx+0x10) "ecx" "F - test-function-header-with-arg/output:0/register")  # Var-register
+    (check-strings-equal *(ebx+0x10) "ecx" "F - test-function-header-with-arg/output:0/register")  # Var-register
     # edx = result->outputs->next
     8b/-> *(edx+4) 2/r32/edx  # List-next
     # ebx = result->outputs->next->value
     8b/-> *edx 3/r32/ebx  # List-value
-    (check-string-equal *ebx "y" "F - test-function-header-with-multiple-args/output:1")  # Var-name
+    (check-strings-equal *ebx "y" "F - test-function-header-with-multiple-args/output:1")  # Var-name
     (check-ints-equal *(ebx+4) 1 "F - test-function-header-with-arg/output:1/type")  # Var-type
-    (check-string-equal *(ebx+0x10) "edx" "F - test-function-header-with-arg/output:0/register")  # Var-register
+    (check-strings-equal *(ebx+0x10) "edx" "F - test-function-header-with-arg/output:0/register")  # Var-register
     # . epilogue
     89/<- %esp 5/r32/ebp
     5d/pop-to-ebp
@@ -1200,7 +1200,7 @@ test-parse-var-with-type:
     #
     (parse-var-with-type %ecx _test-input-stream)
     8b/-> *eax 2/r32/edx  # Var-name
-    (check-string-equal %edx "x" "F - test-var-with-type/name")
+    (check-strings-equal %edx "x" "F - test-var-with-type/name")
     8b/-> *(eax+4) 2/r32/edx  # Var-type
     (check-ints-equal %edx 1 "F - test-var-with-type/type")
     # . epilogue
@@ -1227,9 +1227,9 @@ test-parse-var-with-type-and-register:
     #
     (parse-var-with-type %ecx _test-input-stream)
     8b/-> *eax 2/r32/edx  # Var-name
-    (check-string-equal %edx "x" "F - test-var-with-type-and-register/name")
+    (check-strings-equal %edx "x" "F - test-var-with-type-and-register/name")
     8b/-> *(eax+0x10) 2/r32/edx  # Var-register
-    (check-string-equal %edx "eax" "F - test-var-with-type-and-register/register")
+    (check-strings-equal %edx "eax" "F - test-var-with-type-and-register/register")
     8b/-> *(eax+4) 2/r32/edx  # Var-type
     (check-ints-equal %edx 1 "F - test-var-with-type-and-register/type")
     # . epilogue
@@ -1256,9 +1256,9 @@ test-parse-var-with-trailing-characters:
     #
     (parse-var-with-type %ecx _test-input-stream)
     8b/-> *eax 2/r32/edx  # Var-name
-    (check-string-equal %edx "x" "F - test-var-with-trailing-characters/name")
+    (check-strings-equal %edx "x" "F - test-var-with-trailing-characters/name")
     8b/-> *(eax+0x10) 2/r32/edx  # Var-register
-    (check-string-equal %edx "eax" "F - test-var-with-trailing-characters/register")
+    (check-strings-equal %edx "eax" "F - test-var-with-trailing-characters/register")
     8b/-> *(eax+4) 2/r32/edx  # Var-type
     (check-ints-equal %edx 1 "F - test-var-with-trailing-characters/type")
     # . epilogue
diff --git a/apps/pack b/apps/pack
index 1d0debc3..40bb7b5c 100755
--- a/apps/pack
+++ b/apps/pack
Binary files differdiff --git a/apps/sigils b/apps/sigils
index 65e7d064..42a9485a 100755
--- a/apps/sigils
+++ b/apps/sigils
Binary files differdiff --git a/apps/survey b/apps/survey
index 6804bd06..40c17f9a 100755
--- a/apps/survey
+++ b/apps/survey
Binary files differdiff --git a/apps/tests b/apps/tests
index 4c257895..c90e3723 100755
--- a/apps/tests
+++ b/apps/tests
Binary files differ