more of the vlist implementation .. moved all test cases to vlist

1 files changed, 22 insertions, 0 deletions

diff --git a/src/declare.cc b/src/declare.cc
index 2179c7e8..05073547 100644
--- a/src/declare.cc
+++ b/src/declare.cc
@@ -708,6 +708,28 @@ void Compiler::makeDefaultIterators()
 		objMethod->iterDef = triter;
 	}
 
+	/* Value List iterator. */
+	{
+		UniqueType *anyRefUT = findUniqueType( TYPE_REF, anyLangEl );
+		ObjectMethod *objMethod = initFunction( uniqueTypeAny, globalObjectDef, 
+				"vlist_iter", IN_HALT, IN_HALT, anyRefUT, true );
+
+		IterDef *triter = findIterDef( IterDef::ValueList );
+		objMethod->iterDef = triter;
+	}
+
+	/* Reverse Value List iterator. */
+	{
+		UniqueType *anyRefUT = findUniqueType( TYPE_REF, anyLangEl );
+		ObjectMethod *objMethod = initFunction( uniqueTypeAny, globalObjectDef, 
+				"rev_vlist_iter", IN_HALT, IN_HALT, anyRefUT, true );
+
+		IterDef *triter = findIterDef( IterDef::RevValueList );
+		objMethod->iterDef = triter;
+	}
+
+
+
 	/* Map iterator. */
 	{
 		UniqueType *anyRefUT = findUniqueType( TYPE_REF, anyLangEl );