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

[guile-json] remove dependency on srfi-43

Browse Source 
this is a compatibility hack to remove dependency on srfi-43 which is
not present on ubuntu 14.04. create a simplified vector-for-each
suitable for this module.
This commit is contained in:
Christopher Lam 2019-01-19 23:13:01 +08:00
parent 816dd3ea2a
commit 66ae2abb8e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
borrowed/guile-json/json/builder.scm
View File

@ -27,11 +27,17 @@
(define-module (json builder) (define-module (json builder)
#:use-module (ice-9 format) #:use-module (ice-9 format)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-43)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:export (scm->json #:export (scm->json
scm->json-string)) scm->json-string))
;; simplified vector-for-each suitable for use in this module
(define (vector-for-each fn v)
(for-each
(lambda (i)
(fn i (vector-ref v i)))
(iota (vector-length v))))
;; ;;
;; String builder helpers ;; String builder helpers
;; ;;