Rename %sparql-port -> %sparql-http-server-port.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 3 insertions, 3 deletions

diff --git a/visualize-schema.scm b/visualize-schema.scm
index 92f9272..2097400 100755
--- a/visualize-schema.scm
+++ b/visualize-schema.scm
@@ -34,7 +34,7 @@
 (define %sparql-host
   (make-parameter #f))
 
-(define %sparql-port
+(define %sparql-http-server-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-port))))
+                                            #:port (%sparql-http-server-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-port (assq-ref connection-settings 'sparql-port)))
+                      (%sparql-server-port (assq-ref connection-settings 'sparql-http-server-port)))
          (call-with-output-file "sql.dot"
            write-sql-visualization)
          (call-with-output-file "rdf.dot"