5778

1 files changed, 19 insertions, 19 deletions

diff --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