From 3cd4fcb1c69bde2295f74af86e9eaa5f0343c48f Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Thu, 31 Oct 2024 12:59:23 +0300
Subject: Revert "Rename %sparql-port -> %sparql-http-server-port."

This reverts commit 69e3f47fa29f9f967dfa66860edaec51c0de0125.
---
 visualize-schema.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'visualize-schema.scm')

diff --git a/visualize-schema.scm b/visualize-schema.scm
index 2097400..92f9272 100755
--- a/visualize-schema.scm
+++ b/visualize-schema.scm
@@ -34,7 +34,7 @@
 (define %sparql-host
   (make-parameter #f))
 
-(define %sparql-http-server-port
+(define %sparql-port
   (make-parameter #f))
 
 (define (sparql-query-records . args)
@@ -43,7 +43,7 @@
   (query-results->list (apply sparql-query
                               (append args
                                       (list #:host (%sparql-host)
-                                            #:port (%sparql-http-server-port))))
+                                            #:port (%sparql-port))))
                        #t))
 
 (define (floor-log1024 x)
@@ -284,7 +284,7 @@ PORT."
      (let ((connection-settings (call-with-input-file connection-settings-file
                                   read)))
        (parameterize ((%sparql-host (assq-ref connection-settings 'sparql-host))
-                      (%sparql-server-port (assq-ref connection-settings 'sparql-http-server-port)))
+                      (%sparql-port (assq-ref connection-settings 'sparql-port)))
          (call-with-output-file "sql.dot"
            write-sql-visualization)
          (call-with-output-file "rdf.dot"
-- 
cgit v1.2.3