diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-03 06:06:51 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-03 06:06:51 -0700 |
| commit | 905ef292831beda398fb9bc0e5aaf83878d348e0 (patch) | |
| tree | 124944def60016bdb8a0046b7706eb692313276d | |
| parent | 4eadfab873ac975326e15e9bdd9405928e0e9cd6 (diff) | |
| download | txr-905ef292831beda398fb9bc0e5aaf83878d348e0.tar.gz txr-905ef292831beda398fb9bc0e5aaf83878d348e0.tar.bz2 txr-905ef292831beda398fb9bc0e5aaf83878d348e0.zip | |
tests: fix undefined variable warning.
* tests/012/oop.tl: Adjust one recently added test case to
eliminate undefined variable warning.
| -rw-r--r-- | tests/012/oop.tl | 4 |
1 files changed, 3 insertions, 1 deletions
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) |