7283

2 files changed, 12 insertions, 98 deletions

diff --git a/apps/mu b/apps/mu
index d216c94d..70e8a1ca 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differdiff --git a/apps/mu.subx b/apps/mu.subx
index b2c3d165..0859e2d4 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -7706,14 +7706,7 @@ test-copy-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-copy-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -8189,14 +8182,7 @@ test-copy-to-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-copy-to-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -8493,14 +8479,7 @@ test-compare-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-compare-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -8523,14 +8502,7 @@ test-compare-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-compare-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -8823,14 +8795,7 @@ test-address-of-deref:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-address-of-deref: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -8942,15 +8907,7 @@ test-address-with-right-type-for-array:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # no error
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-address-with-right-type-for-array: error message")
-    # don't bother checking output
+    # no errors
     # . epilogue
     89/<- %esp 5/r32/ebp
     5d/pop-to-ebp
@@ -8973,15 +8930,7 @@ test-address-with-right-type-for-stream:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # no error
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-address-with-right-type-for-stream: error message")
-    # don't bother checking output
+    # no errors
     # . epilogue
     89/<- %esp 5/r32/ebp
     5d/pop-to-ebp
@@ -13338,14 +13287,7 @@ test-copy-object-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-copy-object-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -13684,14 +13626,7 @@ test-allocate-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-allocate-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -13983,14 +13918,7 @@ test-populate-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-populate-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -14282,14 +14210,7 @@ test-populate-stream-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-populate-stream-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return
@@ -14489,14 +14410,7 @@ test-convert-deref-address:
     # convert
     (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0)
     (flush _test-output-buffered-file)
-#?     # dump _test-error-stream {{{
-#?     (write 2 "^")
-#?     (write-stream 2 _test-error-stream)
-#?     (write 2 "$\n")
-#?     (rewind-stream _test-error-stream)
-#?     # }}}
-    # not bothering checking output
-    (check-next-stream-line-equal _test-error-stream  ""  "F - test-convert-deref-address: error message")
+    # no errors
     # . epilogue
     5d/pop-to-ebp
     c3/return