From 26912efe8a0a956514eed10139ec65d56ca0f978 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Thu, 16 Aug 2001 06:33:32 +0200
Subject: [PATCH] The error thrown by compile() is no longer an array.

Rev: src/testsuite.in:1.449
---
 src/testsuite.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/testsuite.in b/src/testsuite.in
index 9465e1b0a6..a69d18ed83 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.448 2001/08/09 18:53:04 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.449 2001/08/16 04:33:32 mast Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -7342,7 +7342,7 @@ test_true(objectp(this_object()))
 test_eq(20,catch(throw(a())))
 
 // - catch compile-errors
-test_any([[ master()->set_inhibit_compile_errors(lambda(){});mixed res = catch{compile_string("dfasfqw123");};master()->set_inhibit_compile_errors(0); return arrayp(res); ]], 1)
+test_any([[ master()->set_inhibit_compile_errors(lambda(){});mixed res = catch{compile_string("dfasfqw123");};master()->set_inhibit_compile_errors(0); return arrayp(res)||objectp(res); ]], 1)
 
 // catch
 test_false([[class X { string test(string foo) { catch { return lower_case(foo); }; return foo; }}()->test(0); ]])
-- 
GitLab