From 26feec0cafd7b5f5cd6fe5e7b086cc21eba52dce Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Wed, 26 Feb 2014 07:40:04 -0700 Subject: [PATCH] Prep array-broadcast.rkt for TR negation fix --- pkgs/math-pkgs/math-lib/math/private/array/array-broadcast.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/math-pkgs/math-lib/math/private/array/array-broadcast.rkt b/pkgs/math-pkgs/math-lib/math/private/array/array-broadcast.rkt index 3401cd5efb..6a52fc2e9c 100644 --- 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))