Prep array-broadcast.rkt for TR negation fix

2014-02-26 07:40:04 -07:00 · 2014-02-26 07:40:04 -07:00 · 26feec0caf
commit 26feec0caf
parent 73967fcfec
1 changed files with 1 additions and 1 deletions
--- a/pkgs/math-pkgs/math-lib/math/private/array/array-broadcast.rkt
+++ b/pkgs/math-pkgs/math-lib/math/private/array/array-broadcast.rkt
@ -46,7 +46,7 @@
                   new-arr
                   (array-default-strict new-arr))]))

-(: shape-insert-axes (Indexes Fixnum -> Indexes))
+(: shape-insert-axes (Indexes Integer -> Indexes))
 (define (shape-insert-axes ds n)
  (vector-append ((inst make-vector Index) n 1) ds))