From 968efa1cea39b9b7ec555940407c2c65acedda26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 23 Aug 2020 16:26:19 +0200
Subject: Remove custom if + *unspecified*.

---
 module/util.scm | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/module/util.scm b/module/util.scm
index eab93a69..755afccf 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -17,7 +17,7 @@
                 print-and-return
                 )
   #:replace (let* set! define-syntax
-                  when unless if))
+                  when unless))
 
 ((@ (guile) define-syntax) define-syntax
   (syntax-rules ()
@@ -28,8 +28,6 @@
     ((_ otherwise ...)
      ((@ (guile) define-syntax) otherwise ...))))
 
-(define-public *unspecified* ((@ (guile) if) #f #f))
-
 
 
 ;; NOTE
@@ -47,15 +45,6 @@
 (define-syntax-rule (unless pred body ...)
   (if pred '() (begin body ...)))
 
-(define-syntax if
-  (syntax-rules ()
-   [(_ p t)
-    (when p t)]
-
-   [(_ p t f ...)
-    ((@ (guile) if) p t
-     (begin f ...))]))
-
 
 (define-syntax (aif stx)
   (syntax-case stx ()
-- 
cgit v1.2.3