Return receiver as list of symbols.

IoLanguage · Oct 13, 2011 · 849d387 · 849d387
1 parent 3a29346
commit 849d387
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/libs/iovm/source/IoSeq_immutable.c b/libs/iovm/source/IoSeq_immutable.c
@@ -706,7 +706,8 @@ IO_METHOD(IoSeq, asList)
 		}
 		else
 		{
-			List_append_(list, IONUMBER(UArray_longAt_(DATA(self), i)));
+			long c = UArray_longAt_(DATA(self), i);
+			List_append_(list, IOSYMBOL(&c));
 		}
 	}
 

diff --git a/libs/iovm/tests/correctness/SequenceTest.io b/libs/iovm/tests/correctness/SequenceTest.io
@@ -42,7 +42,7 @@ SequenceTest := UnitTest clone do(
 	)
 
 	testAsList := method(
-		assertEquals(list(97, 98, 99, 100), "abcd" asList)
+		assertEquals(list("a", "b", "c", "d"), "abcd" asList)
 		vector := Sequence clone setItemType("float32") setEncoding("number")
 		vector atPut(0, -0.5)
 		vector atPut(1, 0)