From b856a9a7b199d64db4b55a7aea56886569d20796 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 14 Sep 2022 22:15:42 -0700
Subject: compiler: test for recent bugfix.

* tests/012/lambda.tl: Add the test case which reproduces
the compiler failure that was fixed several
commits ago.
---
 tests/012/lambda.tl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/012/lambda.tl b/tests/012/lambda.tl
index d417f458..96f8ba14 100644
--- a/tests/012/lambda.tl
+++ b/tests/012/lambda.tl
@@ -126,6 +126,8 @@
   [(lambda (x y : (a 3) (b 4) . r) (list x y a b r)) 1 2 0 0 . vc] (1 2 0 0 (: : : :))
   [(lambda (x y : (a 3) (b 4) . r) (list x y a b r)) 1 2 0 0 5 . vc] (1 2 0 0 (5 : : : :)))
 
+(test (functionp (lambda (: (n n)))) t)
+
 (cond
   (*compile-test* (exit t))
   (t (set *compile-test* t)
-- 
cgit v1.2.3