diff options
| author | Munyoki Kilyungi | 2023-07-18 13:30:09 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-07-30 12:29:56 +0300 |
| commit | b59dfba16fcae3f608b6e000f9193bdfad5d6b52 (patch) | |
| tree | 19050bf0676e6601ab877eacf69de3eca5f250f6 | |
| parent | 3b8d4f106d0da0cc7400da29d0bc8d5bede2f016 (diff) | |
| download | gn-transform-databases-b59dfba16fcae3f608b6e000f9193bdfad5d6b52.tar.gz | |
Make dump-data? default to #f when dumping data
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -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) |