diff options
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index 33cf6f4a1a..e1b35094e1 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -21,6 +21,7 @@ (define-module (guix progress) #:use-module (guix records) + #:autoload (guix build syscalls) (terminal-string-width) #:use-module (srfi srfi-19) #:use-module (rnrs io ports) #:use-module (rnrs bytevectors) @@ -307,7 +308,7 @@ tasks is performed. Write PREFIX at the beginning of the line." (if (string-null? prefix) (display (progress-bar ratio (current-terminal-columns)) port) (let ((width (- (current-terminal-columns) - (string-length prefix) 3))) + (terminal-string-width prefix) 3))) (display prefix port) (display " " port) (display (progress-bar ratio width) port))) |