diff options
Diffstat (limited to 'json-dump.scm')
| -rwxr-xr-x | json-dump.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/json-dump.scm b/json-dump.scm index ccb64bc..8625139 100755 --- a/json-dump.scm +++ b/json-dump.scm @@ -8,7 +8,7 @@ -(define %dump-directory +(define %directory (list-ref (command-line) 2)) (define %data-directory @@ -55,9 +55,9 @@ inside it." result) (file-system-fold enter? leaf down up skip error 0 path)) -(define (dump-rdf path) +(define (rdf path) (with-output-to-file - (string-append %dump-directory "/sampledata.ttl") + (string-append %directory "/sampledata.ttl") (lambda () (prefix "gn:" "<http://genenetwork.org/>") (newline) @@ -70,4 +70,4 @@ inside it." (newline)) (json-metadata->rdf file)))))))) -(dump-rdf %data-directory) +(rdf %data-directory) |