Dropping when-not (because its unless)

2025-01-02 09:29:55 -06:00
parent 5b69379de1
commit 7e00aac988
2 changed files with 0 additions and 10 deletions
--- 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