From 785f70a3d16e549e36b8ef17f081829fe492a193 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 3 Oct 2019 22:02:03 +0200
Subject: Locate bug with DTEND.

---
 module/util.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 89f6dab6..6aadbc79 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -11,7 +11,7 @@
                 quote?
                 re-export-modules
                 use-modules*
-                -> set
+                -> set aif
                 tree-map let-lazy)
   #:replace (let* set! define-syntax
                   when unless if))
@@ -44,6 +44,13 @@
     ((@ (guile) if) p t
      (begin f ...))]))
 
+(define-syntax aif
+  (lambda (stx)
+    (syntax-case stx ()
+      [(_ condition true-clause false-clause)
+       (with-syntax ((it (datum->syntax stx 'it)))
+         #'(let ((it condition))
+             (if it true-clause false-clause)))])))
 
 
 (define-public upstring->symbol (compose string->symbol string-upcase))
-- 
cgit v1.2.3