summaryrefslogtreecommitdiff
path: root/src/loadcolm.cc
diff options
context:
space:
mode:
authorAdrian Thurston <thurston@complang.org>2015-02-13 18:36:08 -0500
committerAdrian Thurston <thurston@complang.org>2015-02-13 18:36:08 -0500
commit7971f22167db5f108430e4735e4cc1b492e6bd9d (patch)
tree3a8d0f36a13b7fab5c13c3c5d44dcff859da649d /src/loadcolm.cc
parentccf380421c08b6ec1f8b9c4ce6c62eb1fbf5e1e5 (diff)
downloadcolm-7971f22167db5f108430e4735e4cc1b492e6bd9d.tar.gz
work on value list and value map, can insert into vmap
Diffstat (limited to 'src/loadcolm.cc')
-rw-r--r--src/loadcolm.cc9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/loadcolm.cc b/src/loadcolm.cc
index 712551a7..3c54fbc7 100644
--- a/src/loadcolm.cc
+++ b/src/loadcolm.cc
@@ -583,7 +583,8 @@ struct LoadColm
return list;
}
- PatternItemList *walkPattternTopEl( pattern_top_el patternTopEl, LangVarRef *patternVarRef )
+ PatternItemList *walkPattternTopEl( pattern_top_el patternTopEl,
+ LangVarRef *patternVarRef )
{
PatternItemList *list = 0;
switch ( patternTopEl.prodName() ) {
@@ -849,7 +850,7 @@ struct LoadColm
TypeRef *type = TypeRef::cons( internal,
emptyNspaceQual(), "vlist_el" );
- return TypeRef::cons( typeRef.loc(), TypeRef::List, 0, type, 0 );
+ return TypeRef::cons( typeRef.loc(), TypeRef::ValueList, 0, type, 0 );
}
TypeRef *walkValueMap( type_ref typeRef )
@@ -874,7 +875,9 @@ struct LoadColm
TypeRef *elType = TypeRef::cons( internal,
emptyNspaceQual(), "vmap_el" );
- return TypeRef::cons( typeRef.loc(), TypeRef::Map, 0, keyType, elType );
+
+ return TypeRef::cons( typeRef.loc(), TypeRef::ValueMap,
+ 0, keyType, elType, valType );
}
TypeRef *walkTypeRef( type_ref typeRef )