diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 14:57:14 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 14:57:14 +0100 |
commit | 7352d1932e15b6da85774853e6953c0b390fd75b (patch) | |
tree | fa193c3a2a85e2628645598d8f48a77d0f4604eb /json.scm | |
parent | Add preliminary parse code. (diff) | |
download | texttv-7352d1932e15b6da85774853e6953c0b390fd75b.tar.gz texttv-7352d1932e15b6da85774853e6953c0b390fd75b.tar.xz |
Working.
Diffstat (limited to '')
-rw-r--r-- | json.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/json.scm b/json.scm new file mode 100644 index 0000000..bb33e5d --- /dev/null +++ b/json.scm @@ -0,0 +1,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))) |