summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2021-09-23 14:52:11 +0530
committerArun Isaac2021-09-23 14:52:11 +0530
commit3e2b4aca15e8e230461d7ff1e33c86f155a160b8 (patch)
tree9453a25f7d4f542dc2521fb3bfbb5699d90c5f96
parenta4b2541e56118eadb892e356c0560d61697d2be9 (diff)
downloadgn-gemtext-3e2b4aca15e8e230461d7ff1e33c86f155a160b8.tar.gz
gnbug: Use get-line instead of read-line.
* gnbug: Do not import (ice-9 rdelim).
(file-details, git-updated-files, git-first-commit-since): Use
get-line from (rnrs io ports) instead of read-line from (ice-9
rdelim).
-rwxr-xr-xgnbug9
1 files changed, 4 insertions, 5 deletions
diff --git a/gnbug b/gnbug
index 3027f8d..ac6ebbd 100755
--- a/gnbug
+++ b/gnbug
@@ -10,8 +10,7 @@
         (srfi srfi-171)
         (ice-9 ftw)
         (ice-9 match)
-        (ice-9 popen)
-        (ice-9 rdelim))
+        (ice-9 popen))
 
 (define (invoke program . args)
   (unless (zero? (apply system* program args))
@@ -158,7 +157,7 @@ strings, and return them as a list."
                                     (hashtable-set! result 'title
                                                     (remove-prefix "# " line)))))))
                         (const #t)
-                        read-line
+                        get-line
                         port)))
     result))
 
@@ -189,7 +188,7 @@ START-COMMIT and END-COMMIT."
                                                  ("M" 'modified))
                                                file)))))
                               transducer)
-                     (const #t) read-line port))
+                     (const #t) get-line port))
    "git" "diff" "--stat" "--name-status"
    (string-append start-commit ".." end-commit)))
 
@@ -207,7 +206,7 @@ there is no such commit."
    (lambda (port)
      (port-transduce (tmap identity)
                      rlast
-                     read-line
+                     get-line
                      port))
    "git" "log" "--format=format:%H" "--since" since))