doc: Remove redundant file open.

* doc/skribilo.scm (source-ref): Remove redundant file open.

1 files changed, 14 insertions, 16 deletions

diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index 4a1eda0..3438b82 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -108,22 +108,20 @@ and END are line numbers indexed from 1."
              (position->line-number str end))))))
 
 (define (source-ref file regexp text)
-  (call-with-input-file file
-    (lambda (port)
-      (ref #:url (match (sexp-file-lines file regexp)
-                   ((start-line . end-line)
-                    (if (= start-line end-line)
-                        (string-append %source-uri-base
-                                       file
-                                       "#L"
-                                       (number->string start-line))
-                        (string-append %source-uri-base
-                                       file
-                                       "#L"
-                                       (number->string start-line)
-                                       "-L"
-                                       (number->string end-line)))))
-           #:text text))))
+  (ref #:url (match (sexp-file-lines file regexp)
+               ((start-line . end-line)
+                (if (= start-line end-line)
+                    (string-append %source-uri-base
+                                   file
+                                   "#L"
+                                   (number->string start-line))
+                    (string-append %source-uri-base
+                                   file
+                                   "#L"
+                                   (number->string start-line)
+                                   "-L"
+                                   (number->string end-line)))))
+       #:text text))
 
 ;; HTML engine customizations
 (let ((html-engine (find-engine 'html)))