831f43ea6da8 — Leonard Ritter 2 months ago
* capture: improve anchoring
1 files changed, 2 insertions(+), 2 deletions(-)

M lib/scopes/Capture.sc
M lib/scopes/Capture.sc +2 -2
@@ 116,11 116,11 @@ inline capture-parser (macroname head bo
                     let namestr = (name as string)
                     let k = (decons args)
                     if ((lslice namestr 1) == "&")
+                        let anchor = ('anchor k)
                         # reference
-                        let anchor = ('anchor k)
                         let k =
                             'tag `[(Symbol (rslice namestr 1))] anchor
-                        let expr = (qq [&] ([view] [k]))
+                        let expr = ('tag `[(qq [&] ([view] [k]))] anchor)
                         let unreflist =
                             cons
                                 qq [let] [k] = ([@] [k])