From e77c34f654a47cb90857f1ac4d6957e008858d6a Mon Sep 17 00:00:00 2001
From: Taylan Kammer <taylan.kammer@gmail.com>
Date: Wed, 3 Jun 2026 20:56:00 +0200
Subject: At-quoted strings carry the sentinel.

---
 src/zisp/io/Parser.zig | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/zisp/io/Parser.zig b/src/zisp/io/Parser.zig
index e29868a..a56a61b 100644
--- a/src/zisp/io/Parser.zig
+++ b/src/zisp/io/Parser.zig
@@ -481,13 +481,14 @@ fn getString(p: *Parser, comptime close: u8) !Value {
 }
 
 fn getAtString(p: *Parser) !Value {
-    const sentinel = try p.readNoEof("at-string");
+    const stop = try p.readNoEof("at-string");
     while (try p.readNoEof2("at-string")) |c| {
-        if (c == sentinel) break;
+        if (c == stop) break;
         try p.addChar(c);
     }
-    const s = try p.getCharsAsString();
-    return p.cons(ATSTR, s);
+    const str = try p.getCharsAsString();
+    const byte = value.fixnum.pack(stop);
+    return p.cons(ATSTR, p.cons(byte, str));
 }
 
 fn skipStringLfEscape(p: *Parser) !u8 {
-- 
cgit v1.2.3