1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From: Kan-Ru Chen <kanru@kanru.info>
Date: Sat, 1 Jul 2023 15:58:11 +0900
Subject: fix bootstrap llir
---
src/lib/llvm.l | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/lib/llvm.l b/src/lib/llvm.l
index 8067f8a..caf1ffc 100644
--- a/src/lib/llvm.l
+++ b/src/lib/llvm.l
@@ -245,7 +245,7 @@ Lst Lbl Flg Skip True False Beg End Safe *Safe)
(de pointee (Typ)
(if (== 'any Typ)
Typ
- (intern (head -1 (chop Typ))) ) )
+ (intern (pack (head -1 (chop Typ)))) ) )
(de store (X P Ofs)
(nond
|
