about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-11 15:22:18 +0300
committerMunyoki Kilyungi2023-07-21 14:36:38 +0300
commitbaec0ede474a974ef3160423b7dc82773b1f5a50 (patch)
tree69a438bdcbd240f96a669f09773facd5d1c1b3da
parent5661067312cc6f56c1b6b0678c1715c791c90238 (diff)
downloadgn-transform-databases-baec0ede474a974ef3160423b7dc82773b1f5a50.tar.gz
Rename auto-documentation-port -> path
We don't need to pass around ports as part of a configuration when we
can instead pass in a path that can be used to open a port.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--dump/special-forms.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index b62eb09..a4d1c12 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -441,9 +441,9 @@ must be remedied."
                                     (triple 'predicate 'rdfs:domain #,subject-type))))
                              (_ (error "Invalid predicate clause:" predicate-clause))))
                          #'(predicate-clauses ...))))
-             (when (dump-configuration-auto-documentation-port dump-configuration)
+             (when (dump-configuration-path dump-configuration)
                (let ((out
-                      (dump-configuration-auto-documentation-port
+                      (dump-configuration-path
                        dump-configuration)))
                  (format out "# '~a' Metadata~%~%" (syntax->datum #'name))
                  #,(syntax-case #'schema-triples-clause (schema-triples)