IntenseFinance/gnucash
3
0 Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-10-26 08:00:05 -05:00
Code Issues Packages Projects Releases Wiki Activity

[utilities] simplify addto!

Browse Source
This commit is contained in:
Christopher Lam committed 2020-12-04 21:33:31 +08:00
1 parent 51e3a65762
commit da32fb0dae
1 file changed
+2 -4
Download Patch File Download Diff File Expand all files Collapse all files
bindings/guile/utilities.scm
+2 -4
View File
@@ -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