From 906b01d476d882ab00f56fc220945b24a454083f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 11 Mar 2023 12:10:39 -0800
Subject: Modify: >> checks failure check syntax

---
 hyperquirks.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'hyperquirks.lisp')

diff --git a/hyperquirks.lisp b/hyperquirks.lisp
index 27051c5..d64ce08 100644
--- a/hyperquirks.lisp
+++ b/hyperquirks.lisp
@@ -203,6 +203,10 @@ single pipe form."
               ()
               "Invalid pipe form: ~s"
               (find-if-not #'pipe-form-p pipe-forms))
+      (assert (loop :for (f1 f2) :on pipe-forms
+                    :always (or (not (eql :? f1)) (and f2 (not (eql :? f2)))))
+              ()
+              "Failure checks :? must always be followed by a valid form.")
 
       (list 'block block
             (reduce #'folder (escape-early-transform pipe-forms) :initial-value initform)))))
-- 
cgit v1.2.3