about summary refs log tree commit diff stats
path: root/apps/braces.subx
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-12-05 22:57:51 -0800
committerKartik Agaram <vc@akkartik.com>2019-12-05 22:57:51 -0800
commit686a52bd2ef94fb6a2f255e59b17d9e71f719918 (patch)
tree5ff66558e54a98b5738ea4b7111137f508a06bf5 /apps/braces.subx
parent714d6e15ba096e47253905eb63bf4066f72cf46f (diff)
downloadmu-686a52bd2ef94fb6a2f255e59b17d9e71f719918.tar.gz
5790
Standardize conventions for labels within objects in the data segment.

We're going to use this in a new tool.
Diffstat (limited to 'apps/braces.subx')
-rw-r--r--apps/braces.subx12
1 files changed, 6 insertions, 6 deletions
diff --git a/apps/braces.subx b/apps/braces.subx
index abdcdfbe..27810a86 100644
--- a/apps/braces.subx
+++ b/apps/braces.subx
@@ -263,8 +263,8 @@ test-subx-braces-passes-most-words-through:
     # setup
     (clear-stream _test-input-stream)
     (clear-stream _test-output-stream)
-    (clear-stream _test-input-buffered-file->buffer)
-    (clear-stream _test-output-buffered-file->buffer)
+    (clear-stream $_test-input-buffered-file->buffer)
+    (clear-stream $_test-output-buffered-file->buffer)
     # test
     (write _test-input-stream "== abcd 0x1")
     (subx-braces _test-input-buffered-file _test-output-buffered-file)
@@ -300,8 +300,8 @@ test-subx-braces-1:
     # setup
     (clear-stream _test-input-stream)
     (clear-stream _test-output-stream)
-    (clear-stream _test-input-buffered-file->buffer)
-    (clear-stream _test-output-buffered-file->buffer)
+    (clear-stream $_test-input-buffered-file->buffer)
+    (clear-stream $_test-output-buffered-file->buffer)
     # test
     (write _test-input-stream "{\nab break/imm32\ncd loop/imm32\n}")
     (subx-braces _test-input-buffered-file _test-output-buffered-file)
@@ -341,8 +341,8 @@ test-subx-braces-2:
     # setup
     (clear-stream _test-input-stream)
     (clear-stream _test-output-stream)
-    (clear-stream _test-input-buffered-file->buffer)
-    (clear-stream _test-output-buffered-file->buffer)
+    (clear-stream $_test-input-buffered-file->buffer)
+    (clear-stream $_test-output-buffered-file->buffer)
     # test
     (write _test-input-stream "{\n{\nab break/imm32\n}\ncd loop/imm32\n}")
     (subx-braces _test-input-buffered-file _test-output-buffered-file)