Skip to content

Commit 42d5da8

Browse files
committed
Fix
1 parent 1be06a2 commit 42d5da8

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

Qq/Macro.lean

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -91,7 +91,7 @@ meta def removeDollar : Name → Option Name
9191
| anonymous => none
9292
| str anonymous "$" => some anonymous
9393
| str anonymous s =>
94-
if s.startsWith "$" then str anonymous (s.drop 1) else none
94+
if s.startsWith "$" then str anonymous (s.drop 1).copy else none
9595
| str n s => (removeDollar n).map (str . s)
9696
| num n i => (removeDollar n).map (num . i)
9797

@@ -100,8 +100,8 @@ meta def stripDollars : Name → Name
100100
| anonymous => anonymous
101101
| str n "$" => stripDollars n
102102
| str anonymous s =>
103-
let s := s.dropWhile (· = '$')
104-
if s = "" then anonymous else str anonymous s
103+
let s := s.dropWhile '$'
104+
if s.isEmpty then anonymous else str anonymous s.copy
105105
| str n s => str (stripDollars n) s
106106
| num n i => num (stripDollars n) i
107107

lean-toolchain

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
leanprover/lean4:v4.26.0-rc1
1+
leanprover/lean4-pr-releases:pr-release-11180-fd4047c

0 commit comments

Comments
 (0)