Diff for /gforth/matrix.fs between versions 1.1 and 1.2

version 1.1, 1995/11/13 18:38:35 version 1.2, 1999/03/28 16:10:03
Line 34  align create imr mat-byte-size allot Line 34  align create imr mat-byte-size allot
 : innerproduct ( a[row][*] b[*][column] -- int)  : innerproduct ( a[row][*] b[*][column] -- int)
   0 row-size 0 do    0 row-size 0 do
     >r over @ over @ * r> + >r      >r over @ over @ * r> + >r
     cell+ swap row-byte-size + swap      swap cell+ swap row-byte-size +
     r>      r>
   loop    loop
   >r 2drop r>    >r 2drop r>

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>