# HG changeset patch
# User jwe
# Date 1176953532 0
# Node ID aa2837cae002df5792a6dc56aaf9dbe9d9b9c608
# Parent  90bc7594a7f832c4fb2ea1837eae93fabd5cf842
[project @ 2007-04-19 03:32:12 by jwe]

diff --git a/src/syscalls.cc b/src/syscalls.cc
--- a/src/syscalls.cc
+++ b/src/syscalls.cc
@@ -372,8 +372,8 @@
 %!       idx++;
 %!       str{idx} = s;
 %!     elseif (errno () == EAGAIN)
+%!       fclear (out);
 %!       sleep (0.1);
-%!       fclear (out);
 %!     else
 %!       done = true;
 %!     endif
diff --git a/test/test_quad.m b/test/test_quad.m
--- a/test/test_quad.m
+++ b/test/test_quad.m
@@ -12,8 +12,8 @@
 %!function y = f (x)
 %!  y = x .* sin (1 ./ x) .* sqrt (abs (1 - x));
 %!test
-%! [v, ier, nfun, err] = quad ("f", 0, 3);
-%! assert((ier == 0 || ier == 1) && abs (v - 1.98194122455795) < sqrt (eps) && nfun > 0);
+%!  [v, ier, nfun, err] = quad ("f", 0.001, 3);
+%! assert((ier == 0 || ier == 1) && abs (v - 1.98194120273598) < sqrt (eps) && nfun > 0);
 
 %% test/octave.test/quad/quad-3.m
 %!error <Invalid call to quad.*> quad ();