.tmp

inconvergent · Feb 26, 2024 · ef90d62 · ef90d62
1 parent b632d6a
commit ef90d62
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/qry.lisp b/src/qry.lisp
@@ -50,7 +50,7 @@
                `(loop with ,acc = ,init
                       with ,par = (vec! ,(gk conf :dat))
                       for ,itr across ,par for ,i from 0
-                      do (∈ (,par ,i ,itr)
+                      do (∈ (,par ,i ,itr ,i)
                            (setf ,acc ,(funcall rec (dat/new conf itr) expr)))
                       finally (return ,acc))))
       (case (length d) (0 (error "*fld: missing args."))

diff --git a/test/test-lqn-2.lisp b/test/test-lqn-2.lisp
@@ -88,8 +88,8 @@
 
   (is (lqn:ldnout (lqn:qry (lqn:new$ :a 1 :b 2 :c 3) #(1+)))
        '((:A . 2) (:B . 3) (:C . 4)) :test #'equalp)
-  (is (lqn:ldnout (lqn:qry (lqn:new$ :a 1 :b 2 :c 3) #((lqn:str! (key) _))))
-       '((:A . "a1") (:B . "b2") (:C . "c3")) :test #'equalp)
+  (is (lqn:ldnout (lqn:qry (lqn:new$ :a 1 :b 2 :c 3) #((str! (key) (cnt) _))))
+       '((:A . "a01") (:B . "b12") (:C . "c23")) :test #'equalp)
 
   (is (lqn:qry "aaayyy x abc x def x uuu x sss x auiuu x aaaaa"
         (splt _ :x) (*map (?xpr :a :-@b sup sdwn)))