about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-27 22:14:08 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-27 22:14:08 -0700
commit16f51dd76d460eaa459cbd7e376cdf8f61a3c068 (patch)
tree505e56a604840a91bbd9011208ab9ec089118ded
parent865f37aa9c970905e6a3046e3d2d432cc68aea57 (diff)
downloadmu-16f51dd76d460eaa459cbd7e376cdf8f61a3c068.tar.gz
.
-rw-r--r--shell/tokenize.mu9
1 files changed, 1 insertions, 8 deletions
diff --git a/shell/tokenize.mu b/shell/tokenize.mu
index 6734e13f..387fe617 100644
--- a/shell/tokenize.mu
+++ b/shell/tokenize.mu
@@ -34,14 +34,7 @@ fn test-tokenize-dotted-list {
   # in: "(a . b)"
   var in-storage: gap-buffer
   var in/esi: (addr gap-buffer) <- address in-storage
-  initialize-gap-buffer in, 0x10
-  add-code-point-at-gap in, 0x28/open-paren
-  add-code-point-at-gap in, 0x61/a
-  add-code-point-at-gap in, 0x20/space
-  add-code-point-at-gap in, 0x2e/dot
-  add-code-point-at-gap in, 0x20/space
-  add-code-point-at-gap in, 0x62/b
-  add-code-point-at-gap in, 0x29/close-paren
+  initialize-gap-buffer-with in, "(a . b)"
   #
   var stream-storage: (stream cell 0x10)
   var stream/edi: (addr stream cell) <- address stream-storage