core: Quoted internals are symbols.

[mes.git] / tests / base.test

diff --git a/tests/base.test b/tests/base.test
index 6c32f2115c557c00cdc6f6e8d7c0e171c79c4e59..b9d2ffe5f4962fe275dcda960f7915a183e4a2d2 100755 (executable)
--- a/tests/base.test
+++ b/tests/base.test
@@ -34,6 +34,7 @@ exit $?
 
 
 (pass-if "begin" (seq? (begin 'a 'b (+ 1 2)) 3))
+(pass-if "lambda" (symbol? 'lambda))
 
 (begin (define *top-begin-a* '*top-begin-a*))
 (pass-if "top begin " (seq? *top-begin-a* '*top-begin-a*))