diff options
| author | Munyoki Kilyungi | 2023-07-17 17:57:52 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:38 +0300 |
| commit | 8e99d505713a86873cd146d708753d8ea40e3a37 (patch) | |
| tree | 3a0ccae8b1cfc2057a1ae74650a778e905152fe7 | |
| parent | 828b834ae432325213f63d2a94c95e8d5b440440 (diff) | |
| download | gn-transform-databases-8e99d505713a86873cd146d708753d8ea40e3a37.tar.gz | |
Revert "Pass port as an optional argument"
This reverts commit 195ca590be5533935cf708d49fcb3736b3c78643.
| -rw-r--r-- | dump/triples.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/dump/triples.scm b/dump/triples.scm index 710e00f..700437a 100644 --- a/dump/triples.scm +++ b/dump/triples.scm @@ -44,9 +44,7 @@ characters with an underscore and prefixing with gn:PREFIX." (string->symbol `,(format #f "~a~a" prefix value)))) -(define* (triple subject predicate object - #:optional - (port #t)) +(define (triple subject predicate object) (unless (or (string? subject) (symbol? subject)) (error "Triple subject not a string or symbol:" @@ -65,7 +63,7 @@ characters with an underscore and prefixing with gn:PREFIX." (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object)) "~a ~a ~a .~%") (_ "~a ~a \"~a\" .~%"))]) - (format port pattern subject predicate + (format #t pattern subject predicate (if (symbol? object) (symbol->string object) object)))) (define* (scm->triples alist id |