cl-interpret: add type metadata to tuple variants

This commit is contained in:
John 2025-10-23 05:05:34 -04:00
parent d62656c615
commit e0eb0d5a02

View File

@ -191,6 +191,7 @@ impl Interpret for Enum {
let cs = Constructor { arity: args.len() as _, name: *name }; let cs = Constructor { arity: args.len() as _, name: *name };
let mut variant = scope.frame(name.to_ref()); let mut variant = scope.frame(name.to_ref());
variant.insert("call".into(), ConValue::TupleConstructor(cs)); variant.insert("call".into(), ConValue::TupleConstructor(cs));
variant.insert("__nmemb".into(), ConValue::Int(args.len() as _));
let frame = variant let frame = variant
.pop_values() .pop_values()
.expect("Frame stack should remain balanced."); .expect("Frame stack should remain balanced.");