about summary refs log tree commit diff stats
path: root/subx/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-02-15 00:01:51 -0800
committerKartik Agaram <vc@akkartik.com>2019-02-15 00:01:51 -0800
commit6ded65f45f633637de853b4e0b483080050394ca (patch)
tree055d6b7bc9171e65b57dce97eaa2166bd789ba4f /subx/apps
parent554777cb2b95e5f56541fc9be0da458c23adedea (diff)
downloadmu-6ded65f45f633637de853b4e0b483080050394ca.tar.gz
4969
Diffstat (limited to 'subx/apps')
-rw-r--r--subx/apps/pack.subx4
1 files changed, 2 insertions, 2 deletions
diff --git a/subx/apps/pack.subx b/subx/apps/pack.subx
index a27d2613..cf0a27d7 100644
--- a/subx/apps/pack.subx
+++ b/subx/apps/pack.subx
@@ -200,10 +200,10 @@ $convert:end:
 convert-instruction:  # line : (address stream byte), out : (address buffered-file) -> <void>
     # pseudocode:
     #   word-slice = next-word
-    #   if (*word-slice->start == '#')
+    #   if (slice-starts-with?(word-slice, '#'))
     #     write-stream-buffered(out, line)
     #     return
-    #   if (starts-with(word-slice, '=='))
+    #   if (slice-starts-with?(word-slice, '=='))
     #     write-stream-buffered(out, line)
     #     return
     #
51530916 ^
30ab0297 ^


51530916 ^



51530916 ^

51530916 ^
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38