From 0743ac3e7727bd15a925345547c94376b949be18 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 17 Jul 2023 17:57:52 +0300
Subject: Revert "Pass port as an optional argument"

This reverts commit 195ca590be5533935cf708d49fcb3736b3c78643.
---
 dump/triples.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'dump/triples.scm')

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
-- 
cgit v1.2.3