From 8980a2a3e2f9898559d479b1a19083f240db3c3f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 24 Jan 2020 20:22:27 +0100
Subject: Add swap.

---
 module/util.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index adac6b90..0580748f 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -190,6 +190,9 @@
 
 
 
+(define-public (swap f)
+  (lambda args (apply f (reverse args))))
+
 ;; Like `case', but evals the case parameters
 (define-syntax case*
   (syntax-rules (else)
-- 
cgit v1.2.3