From 96d406d98b44f728b1d847b0fc6b98f8d8781395 Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Wed, 13 Aug 2025 11:34:59 -0500 Subject: [PATCH] Add assert-unspecified to literals in define-test --- d-/test.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/d-/test.scm b/d-/test.scm index 6a85fc9..a8ee521 100644 --- a/d-/test.scm +++ b/d-/test.scm @@ -13,7 +13,7 @@ (lambda (stx) (with-syntax ([fail (datum->syntax stx 'fail)]) (define (assert-stx expr) - (syntax-case expr (assert-equal assert-not-equal) + (syntax-case expr (assert-equal assert-not-equal assert-unspecified) [(assert-equal e a) #'(assert e a equal? fail)] [(assert-not-equal e a) #'(assert e a (compose not equal?) fail)] [(assert-unspecified v) #'(assert (when #f 'a) v eq? fail)]