tmmp

inconvergent · May 8, 2024 · f0c4c73 · f0c4c73
1 parent 9d438f5
commit f0c4c73
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/pre-qry.lisp b/src/pre-qry.lisp
@@ -84,12 +84,12 @@
 
 (defun pre/scan-clauses (qq &optional (ctx "pre-compile") ign)
   (declare (list qq))
-  (let ((isect (intersection
-                 (mapcar (λ (k) (kw (ssym? k))) qq)
-                 (set-difference *operators* ign)
-                 :test #'equal)))
-    (when isect (error "~a: unexpected bare operator(s) ~a~%in: ~a." ctx isect qq)))
-  (loop for q in qq collect (pre/scan-clause q)))
+  (let ((isect (intersection (mapcar (λ (k) (kw (ssym? k))) qq)
+                             (set-difference *operators* ign)
+                             :test #'equal)))
+    (when isect (error "~a: unexpected bare operator(s) ~a~%in: ~a." 
+                       ctx isect qq)))
+  (loop for q in qq collect (print (pre/scan-clause q))))
 
 (defun pre/|| (qq) (unless qq (warn "||: missing args.")) ; pipe
   (loop for q in (pre/scan-clauses qq '#:pipe '(:@)) collect