diff options
| -rwxr-xr-x | visualize-schema.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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" |