diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-11-03 18:01:22 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-11-09 23:59:42 +0100 |
| commit | 0916a79f8c7e1e489d663fbddab0631d2325806d (patch) | |
| tree | 978559b003d0124dbc376bc9113e5920801d9248 | |
| parent | 26e39b1258801051352fcfb97313cf1541e80c2c (diff) | |
installer: Remove unused variable.
* gnu/installer/newt.scm (newt-run-command): Remove
'displayed-command'.
| -rw-r--r-- | gnu/installer/newt.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm index 0bd08562194..c486788ed44 100644 --- a/gnu/installer/newt.scm +++ b/gnu/installer/newt.scm | |||
| @@ -117,10 +117,6 @@ report it by email to ~a.") uploaded-name %guix-bug-report-address) | |||
| 117 | (define (line-accumulator line) | 117 | (define (line-accumulator line) |
| 118 | (set! command-output | 118 | (set! command-output |
| 119 | (string-append/shared command-output line "\n"))) | 119 | (string-append/shared command-output line "\n"))) |
| 120 | (define displayed-command | ||
| 121 | (string-join | ||
| 122 | (map (lambda (s) (string-append "\"" s "\"")) args) | ||
| 123 | " ")) | ||
| 124 | (define result (run-external-command-with-line-hooks (list line-accumulator) | 120 | (define result (run-external-command-with-line-hooks (list line-accumulator) |
| 125 | args)) | 121 | args)) |
| 126 | (define exit-val (status:exit-val result)) | 122 | (define exit-val (status:exit-val result)) |