aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-17 17:57:52 +0300
committerMunyoki Kilyungi2023-07-21 14:36:38 +0300
commit8e99d505713a86873cd146d708753d8ea40e3a37 (patch)
tree3a0ccae8b1cfc2057a1ae74650a778e905152fe7
parent828b834ae432325213f63d2a94c95e8d5b440440 (diff)
downloadgn-transform-databases-8e99d505713a86873cd146d708753d8ea40e3a37.tar.gz
Revert "Pass port as an optional argument"
This reverts commit 195ca590be5533935cf708d49fcb3736b3c78643.
-rw-r--r--dump/triples.scm6
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