ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: 'terminal-columns' ignores non-file ports.

Browse source 
* guix/build/syscalls.scm (terminal-columns): Call
'terminal-window-size' only when PORT is a file port.
* tests/syscalls.scm ("terminal-columns non-file port"): New test.
This commit is contained in:
Ludovic Courtès 2016-04-15 19:47:35 +02:00
parent 9f088725c0
commit 6d2b43915f
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/build/syscalls.scm
View file

@ -915,10 +915,12 @@ (define (fall-back)
(catch 'system-error
(lambda ()
(match (window-size-columns (terminal-window-size port))
;; Things like Emacs shell-mode return 0, which is unreasonable.
(0 (fall-back))
((? number? columns) columns)))
(if (file-port? port)
(match (window-size-columns (terminal-window-size port))
;; Things like Emacs shell-mode return 0, which is unreasonable.
(0 (fall-back))
((? number? columns) columns))
(fall-back)))
(lambda args
(let ((errno (system-error-errno args)))
(if (= errno ENOTTY)

4
tests/syscalls.scm
View file

@ -257,4 +257,8 @@ (define perform-container-tests?
(test-assert "terminal-columns"
(> (terminal-columns) 0))
(test-assert "terminal-columns non-file port"
(> (terminal-columns (open-input-string "Join us now, share the software!"))
0))
(test-end)