From 51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Aug 2023 14:54:21 +0300 Subject: Remove "dump-" prefix Signed-off-by: Munyoki Kilyungi --- json-dump.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'json-dump.scm') 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:" "") (newline) @@ -70,4 +70,4 @@ inside it." (newline)) (json-metadata->rdf file)))))))) -(dump-rdf %data-directory) +(rdf %data-directory) -- cgit v1.2.3