From 905ef292831beda398fb9bc0e5aaf83878d348e0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 3 Aug 2021 06:06:51 -0700
Subject: tests: fix undefined variable warning.

* tests/012/oop.tl: Adjust one recently added test case to
eliminate undefined variable warning.
---
 tests/012/oop.tl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tests/012/oop.tl')

diff --git a/tests/012/oop.tl b/tests/012/oop.tl
index e9c256b8..bab4ab68 100644
--- a/tests/012/oop.tl
+++ b/tests/012/oop.tl
@@ -80,8 +80,10 @@
 
 (defstruct (ab a : b) () a b)
 
+(defvar foo)
+
 (mtest
-  (new* (find-struct-type 'ab) a 1) :error
+  (new* (foo 'ab) a 1) :error
   (new* ((find-struct-type 'ab)) a 1) #S(ab a 1 b nil)
   (new* [find-struct-type 'ab] a 1) #S(ab a 1 b nil)
   (new* ([find-struct-type 'ab] 1 2)) #S(ab a 1 b 2)
-- 
cgit v1.2.3