diff options
| -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) |