.

src/qry-operators.lisp

@@ -27,8 +27,7 @@
                      (loop with ,kres = (new$) for ,i from 0
                        for ,itr being the hash-values of ,par using (hash-key ,k)
                        do (██∈ (:par ,par :cnt ,i :itr ,itr :key ,k)
-                             (setf (gethash ,k ,kres)
-                                   ,expr))
+                             (setf (gethash ,k ,kres) ,expr))
                        finally (return ,kres)))
                    (map-do-vec () ,(opstr d #'car)
                      (loop with ,vres = (mav) with ,par = (vec! ,par) for ,i from 0
@@ -283,7 +282,8 @@
              (t (error "lqn: unexpected clause: ~a~%in: ~a." d q)))))
     `(λ (,dat ,fn ,fi)
         (██q∈ (,dat ,fn ,fi)
-            ,(rec `((:dat . ,dat) (:qblk . ,qblk) ,@conf*) q))))))
+            (block ,qblk ; TODO: this is not in use.
+              ,(rec `((:dat . ,dat) (:qblk . ,qblk) ,@conf*) q)))))))
 
 (defun qry/show (q cq)
   (prtcomp (format t "