From: Matt Birkholz Date: Mon, 8 Apr 2013 16:43:28 +0000 (-0700) Subject: gtk-screen: Punt tests if errors or DISPLAY not set. X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~52 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8d2b00052aa02f6d4c9ebb551b9e821a15c6d223;p=mit-scheme.git gtk-screen: Punt tests if errors or DISPLAY not set. --- diff --git a/tests/gtk-screen/test-gtk-screen.scm b/tests/gtk-screen/test-gtk-screen.scm index c338a96ff..c4247ac60 100644 --- a/tests/gtk-screen/test-gtk-screen.scm +++ b/tests/gtk-screen/test-gtk-screen.scm @@ -60,5 +60,7 @@ USA. 0 'EXPRESSION '(LENGTH MALLOCED-ALIENS))))) -(if (not (warn-errors? (lambda () (load-option 'gtk-screen)))) +(if (and (not (warn-errors? (lambda () (load-option 'gtk-screen)))) + (let ((s (get-environment-variable "DISPLAY"))) + (and (string? s) (not (string-null? s))))) (main)) \ No newline at end of file