diff array.rhope @ 168:d2b941f82d74

Fix type of list constants in inference pass and return type of some Array related workers
author Mike Pavone <pavone@retrodev.com>
date Sun, 01 May 2011 18:41:17 -0700
parents 65ebd1ce2611
children
line wrap: on
line diff
--- a/array.rhope	Mon Apr 04 01:41:19 2011 -0400
+++ b/array.rhope	Sun May 01 18:41:17 2011 -0700
@@ -25,7 +25,7 @@
 	_internal_array_setboxed[array(Boxed Array,Boxed,Mutable), index(Int32,Naked), val:array]
 	_internal_array_allocboxed[size(Int32,Naked):out(Boxed Array)]
 	_internal_array_allocboxedcopy[source(Boxed Array),size(Int32,Naked):out(Boxed Array)]
-	_internal_array_allocnaked[size(Int32,Naked),type(Blueprint):out(Array)]
+	_internal_array_allocnaked[size(Int32,Naked),type(Blueprint):out]
 	_internal_array_allocnakedcopy[source(Array),size(Int32,Naked):out(Array)]
 }
 
@@ -91,7 +91,7 @@
 	{ out <-  [[array]Length >>] - [1] }
 }
 
-Append@Empty Array[array,newval:out(Array)]
+Append@Empty Array[array,newval:out]
 {
 	out <- [array]Set[0, newval]
 }
@@ -214,7 +214,7 @@
 	}
 }
 
-Set@Empty Array[array,index(Int32),val:out(Array),invalid]
+Set@Empty Array[array,index(Int32),val:out,invalid]
 {
 	invalid <- If[[index]<[0]] {}
 	{