Mercurial > repos > rhope

comparison 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
comparison
equal deleted inserted replaced
68:38d9cd036d49 69:d0ce696786cc
57 Print@Int32[n:out] 57 Print@Int32[n:out]
58 { 58 {
59 If[[n] < [0i32]] 59 If[[n] < [0i32]]
60 { 60 {
61 val <- [0i32]-[n] 61 val <- [0i32]-[n]
62 buf <- [Array[1]]Append[45i8] 62 buf <- [Array[]]Append[45i8]
63 }{ 63 }{
64 val <- Val[n] 64 val <- Val[n]
65 buf <- Array[1] 65 buf <- Array[]
66 } 66 }
67 fbuf <- [_Print Int32[val, buf]]Append[10i8] 67 fbuf <- [_Print Int32[val, buf]]Append[10i8]
68 out <- write[1i32, fbuf, Int64[[fbuf]Length >>]] 68 out <- write[1i32, fbuf, Int64[[fbuf]Length >>]]
69 } 69 }
70 70
150 =@Blueprint[left,right:out] 150 =@Blueprint[left,right:out]
151 { 151 {
152 out <- [_internal_blueprint_eq[left,right]]!=[0] 152 out <- [_internal_blueprint_eq[left,right]]!=[0]
153 } 153 }
154 154
155 Array[n:out(Array)] 155 Array[:out(Array)]
156 { 156 {
157 out <- [[_internal_array_allocboxed[0] 157 out <- [[_internal_array_allocboxed[0]
158 ]Length <<[0] 158 ]Length <<[0]
159 ]Storage <<[0] 159 ]Storage <<[0]
160 } 160 }