diff options
author | Arun Isaac | 2021-09-23 14:52:11 +0530 |
---|---|---|
committer | Arun Isaac | 2021-09-23 14:52:11 +0530 |
commit | 3e2b4aca15e8e230461d7ff1e33c86f155a160b8 (patch) | |
tree | 9453a25f7d4f542dc2521fb3bfbb5699d90c5f96 | |
parent | a4b2541e56118eadb892e356c0560d61697d2be9 (diff) | |
download | gn-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-x | gnbug | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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)) |