diff options
| author | Munyoki Kilyungi | 2023-07-18 13:30:09 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:39 +0300 |
| commit | e209abefb3816a0a26ea04a27a55a23c26b1b1cc (patch) | |
| tree | 19050bf0676e6601ab877eacf69de3eca5f250f6 /dump | |
| parent | cf86f4bd8093f34db72f386e30b84d618d01da2a (diff) | |
| download | gn-transform-databases-e209abefb3816a0a26ea04a27a55a23c26b1b1cc.tar.gz | |
Make dump-data? default to #f when dumping data
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump')
| -rw-r--r-- | dump/special-forms.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index b37cbd3..cf591e9 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -398,7 +398,7 @@ must be remedied." #`(define* (name db #:optional (dump-metadata? #f) - (dump-data? #f) + (dump-data? #t) (dump-documentation? #f)) (when dump-data? #,(syntax-case #'schema-triples-clause (schema-triples) @@ -443,7 +443,6 @@ must be remedied." (triple 'predicate 'rdfs:domain #,subject-type)))) (_ (error "Invalid predicate clause:" predicate-clause)))) #'(predicate-clauses ...)))) - (when dump-documentation? (format #t "~%## '~a'~%~%" (syntax->datum #'name)) #,(syntax-case #'schema-triples-clause (schema-triples) |