json.scm


1
2
3
4
5
6
7
8

(define-module (json)
  #:export (get-json parse-json json->scm))
;; (setenv "LD_LIBRARY_PATH" (string-append "/usr/local/lib:" (getcwd)))

(load-extension "libguile-json" "init_json")

(define (get-json filename)
  (json->scm (parse-json filename)))