some small touch-ups

tekverkp · Jul 12, 2011 · 4f9c08d · 4f9c08d
1 parent 936b915
commit 4f9c08d
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 4 deletions.
diff --git a/doc/todo b/doc/todo
@@ -729,6 +729,7 @@ issues 1/24/11
  . assign
  . reduce
  . cat
+ref assign reduce permute find
 
 something about update operators, in-place operations in general
 

diff --git a/j/list.j b/j/list.j
@@ -62,10 +62,12 @@ function append2(a, b)
  end
 end
 
+append(lst::List) = lst
+
 function append{T}(lst::List{T}, lsts...)
  n = length(lsts)
- l = nil(T)
- for i = n:-1:1
+ l = lsts[n]
+ for i = (n-1):-1:1
  l = append2(lsts[i], l)
  end
  return append2(lst, l)

diff --git a/j/string.j b/j/string.j
@@ -347,6 +347,7 @@ end
 
 escape_string(s::String) = print_to_string(length(s), print_escaped, s, "\"")
 print_quoted(s::String) = (print('"'); print_escaped(s, "\"\$"); print('"'))
+#" # work around syntax highlighting problem
 quote_string(s::String) = print_to_string(length(s)+2, print_quoted, s)
 
 # bare minimum unescaping function unescapes only given characters
@@ -839,7 +840,7 @@ end
 
 # concatenate byte arrays into a single array
 
-memcat() = Array(Int8,0)
+memcat() = Array(Uint8,0)
 memcat(a::Array{Uint8,1}) = copy(a)
 
 function memcat(arrays::Array{Uint8,1}...)

diff --git a/j/tensor.j b/j/tensor.j
@@ -533,7 +533,7 @@ end
 
 all(A::Tensor{Bool}, region::Region) = areduce(all, A, region)
 any(A::Tensor{Bool}, region::Region) = areduce(any, A, region)
-count(A::Tensor{Bool}, region::Region) = areduce(count, A, region, Int)
+count(A::Tensor{Bool}, region::Region) = areduce(count, A, region, Int32)
 
 function isequal(x::Tensor, y::Tensor)
  if size(x) != size(y)