summaryrefslogtreecommitdiff
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))