diff options
| author | Munyoki Kilyungi | 2023-07-11 15:22:18 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-07-30 12:29:56 +0300 |
| commit | 64d5a6f645891eb9f3d7e6a9cd6f08d6b18bd384 (patch) | |
| tree | 69a438bdcbd240f96a669f09773facd5d1c1b3da | |
| parent | 3316c92904d4a9faf8cfa399a487ad47dff5740a (diff) | |
| download | gn-transform-databases-64d5a6f645891eb9f3d7e6a9cd6f08d6b18bd384.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.scm | 4 |
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) |