IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[utilities] simplify addto!

Browse Source
This commit is contained in:
Christopher Lam 2020-12-04 18:37:21 +08:00
parent 51e3a65762
commit da32fb0dae
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bindings/guile/utilities.scm
View File

@ -76,10 +76,8 @@
(define-public (gnc:gui-error str1 str2) (gnc:error str1)) (define-public (gnc:gui-error str1 str2) (gnc:error str1))
(define-public (gnc:gui-msg str1 str2) (gnc:msg str1)) (define-public (gnc:gui-msg str1 str2) (gnc:msg str1))
(define-syntax addto! (define-syntax-rule (addto! alist element)
(syntax-rules () (set! alist (cons element alist)))
((addto! alist element)
(set! alist (cons element alist)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; pair of utility functions for use with guile-json which requires ;; pair of utility functions for use with guile-json which requires