From 7e00aac98821e9d2d4fcbb06c8a08a3dd8ced3e4 Mon Sep 17 00:00:00 2001 From: Dane Johnson Date: Thu, 2 Jan 2025 09:29:55 -0600 Subject: [PATCH] Dropping when-not (because its unless) --- d-.scm | 4 ---- test.scm | 6 ------ 2 files changed, 10 deletions(-) diff --git a/d-.scm b/d-.scm index 95e3bd7..7f3bae0 100644 --- a/d-.scm +++ b/d-.scm @@ -6,7 +6,6 @@ ~>> as~> if-not - when-not if-let for partial @@ -42,9 +41,6 @@ (define-syntax-rule (if-not pred body ...) (if (not pred) body ...)) -(define-syntax-rule (when-not pred body ...) - (when (not pred) body ...)) - (define-syntax-rule (if-let ([ident test]) expr ...) (let ([ident test]) (if ident diff --git a/test.scm b/test.scm index 5d46d7a..2547dd7 100644 --- a/test.scm +++ b/test.scm @@ -30,12 +30,6 @@ (define-test "test" (assert-equal 'a (if-not #f 'a 'b)))) -(define-test-suite "when-not" - (define-test "positive-case" - (assert-equal 'return (when-not #f 'do-some-stuff 'return))) - (define-test "negative-case" - (assert-unspecified (when-not #t 'do-some-stuff 'return)))) - (define-test-suite "for" (define-test "permutation" (define value (for ([i (iota 2)]