core: Quoted internals are symbols.
[mes.git] / tests / base.test
index 6c32f2115c557c00cdc6f6e8d7c0e171c79c4e59..b9d2ffe5f4962fe275dcda960f7915a183e4a2d2 100755 (executable)
@@ -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*))