Also use string or port in nquads parser

Julien LepillerFri Oct 09 00:19:45+0200 2020

3c31417

Also use string or port in nquads parser

nquads/tordf.scm

203203 
204204 
(define (nquads->rdf str-or-file)
205205 
  (define str
206-
    (cond
207-
      ((file-exists? str-or-file) (call-with-input-file str-or-file get-string-all))
208-
      ((string? str-or-file) str-or-file)))
209-
      
206+
    (cond ((port? str-or-file) (get-string-all str-or-file))
207+
          ((string? str-or-file) str-or-file)))
208+
210209 
  (let ((parse-tree (parse-nquads str)))
211210 
    (parse-nquads-doc
212211 
      parse-tree (make-parser-state '() (create-generate-blank-node) #f))))
turtle/tordf.scm
518518 
(define (turtle->rdf str-or-file base)
519519 
  (define str
520520 
    (cond ((port? str-or-file) (get-string-all str-or-file))
521-
	  ((string? str-or-file) str-or-file)))
521+
          ((string? str-or-file) str-or-file)))
522522 
  (let ((parse-tree (parse-turtle str)))
523523 
    (tordf parse-tree base)))