From da32fb0dae3f24eece68f8486810477e3410c037 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Fri, 4 Dec 2020 18:37:21 +0800
Subject: [PATCH] [utilities] simplify addto!

---
 bindings/guile/utilities.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/bindings/guile/utilities.scm b/bindings/guile/utilities.scm
index 77189db5f3..fe025ea742 100644
--- a/bindings/guile/utilities.scm
+++ b/bindings/guile/utilities.scm
@@ -76,10 +76,8 @@
 (define-public (gnc:gui-error str1 str2) (gnc:error str1))
 (define-public (gnc:gui-msg str1 str2) (gnc:msg str1))
 
-(define-syntax addto!
-  (syntax-rules ()
-    ((addto! alist element)
-     (set! alist (cons element alist)))))
+(define-syntax-rule (addto! alist element)
+  (set! alist (cons element alist)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; pair of utility functions for use with guile-json which requires