@@ -65,11 +65,11 @@ instance StackValue Meta where
65instance StackValue MetaValue where
65instance StackValue MetaValue where
66 push lua = \case
66 push lua = \case
67 MetaBlocks blcks -> pushViaConstructor lua "MetaBlocks" blcks
67 MetaBlocks blcks -> pushViaConstructor lua "MetaBlocks" blcks
68− MetaBool b -> pushViaConstructor lua "MetaBool" b
68+ MetaBool bool -> push lua bool
69 MetaInlines inlns -> pushViaConstructor lua "MetaInlines" inlns
69 MetaInlines inlns -> pushViaConstructor lua "MetaInlines" inlns
70 MetaList metalist -> pushViaConstructor lua "MetaList" metalist
70 MetaList metalist -> pushViaConstructor lua "MetaList" metalist
71 MetaMap metamap -> pushViaConstructor lua "MetaMap" metamap
71 MetaMap metamap -> pushViaConstructor lua "MetaMap" metamap
72− MetaString cs -> pushViaConstructor lua "MetaString" cs
72+ MetaString str -> push lua str
73 peek lua idx = do
73 peek lua idx = do
74 luatype <- ltype lua idx
74 luatype <- ltype lua idx
75 case luatype of
75 case luatype of