Mercurial > repos > rhope

diff kernel.rhope @ 69:d0ce696786cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up debug print statements a bit. Fix bug that prevented workers that took no inputs from working. Remove workaround in Array for said bug.
author Mike Pavone <pavone@retrodev.com>
date Wed, 16 Jun 2010 04:36:08 +0000
parents 079200bc3e75
children c40c3d399133
line wrap: on
line diff
--- a/kernel.rhope	Mon Jun 07 15:36:04 2010 -0400
+++ b/kernel.rhope	Wed Jun 16 04:36:08 2010 +0000
@@ -59,10 +59,10 @@
 	If[[n] < [0i32]]
 	{
 		val <- [0i32]-[n]
-		buf <- [Array[1]]Append[45i8]
+		buf <- [Array[]]Append[45i8]
 	}{
 		val <- Val[n]
-		buf <- Array[1]
+		buf <- Array[]
 	}
 	fbuf <- [_Print Int32[val, buf]]Append[10i8]
 	out <- write[1i32, fbuf, Int64[[fbuf]Length >>]]
@@ -152,7 +152,7 @@
 	out <- [_internal_blueprint_eq[left,right]]!=[0]
 }
 
-Array[n:out(Array)]
+Array[:out(Array)]
 {
 	out <- [[_internal_array_allocboxed[0]
 	]Length <<[0]