summaryrefslogtreecommitdiff
path: root/test-suite/tests/c-api.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/c-api.test')
-rw-r--r--test-suite/tests/c-api.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test
index 9a2108e69..5ce033f8d 100644
--- a/test-suite/tests/c-api.test
+++ b/test-suite/tests/c-api.test
@@ -1,7 +1,7 @@
;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*-
;;;; MDJ 990915 <djurfeldt@nada.kth.se>
;;;;
-;;;; Copyright (C) 1999, 2006, 2012 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2006, 2012, 2014 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
@@ -22,7 +22,8 @@
(define srcdir (cdr (assq 'srcdir %guile-build-info)))
(define (egrep string filename)
- (zero? (system (string-append "egrep '" string "' " filename " >/dev/null"))))
+ (zero? (system (string-append "egrep '" string "' " filename
+ " >" %null-device))))
(define (seek-offset-test dirname)
(let ((dir (opendir dirname)))