From e209abefb3816a0a26ea04a27a55a23c26b1b1cc Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 18 Jul 2023 13:30:09 +0300
Subject: Make dump-data? default to #f when dumping data

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump/special-forms.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'dump/special-forms.scm')

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)
-- 
cgit v1.2.3