From 72a54e94807720c601efdef532da5dbea4abc23a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 1 Sep 2010 15:03:24 +0200 Subject: [PATCH] popen.test: Don't auto-compile `popen-child.scm'. * test-suite/tests/popen.test ("open-output-pipe")["no duplicate"]: Disable auto-compilation of `popen-child.scm'. --- test-suite/tests/popen.test | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index a408c9e00..5a92d60c2 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -1,6 +1,6 @@ ;;;; popen.test --- exercise ice-9/popen.scm -*- scheme -*- ;;;; -;;;; Copyright 2003, 2006 Free Software Foundation, Inc. +;;;; Copyright 2003, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -167,9 +167,10 @@ (let* ((c2p (pipe)) (port (with-error-to-port (cdr c2p) (lambda () - (open-output-pipe (format #f - "guile -s ~a/tests/popen-child.scm" - (getenv "TEST_SUITE_DIR"))))))) + (open-output-pipe + (string-append "guile --no-autocompile -s \"" + (getenv "TEST_SUITE_DIR") + "/tests/popen-child.scm\"")))))) (close-port (cdr c2p)) ;; write side (with-epipe (lambda () -- 2.20.1