steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix stack effects in math.blas.syntax

db4
Doug Coleman 2008-08-30 10:26:54 -05:00
parent 4372efc8f0
commit 6431ab9064
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/math/blas/syntax/syntax.factor
View File

@ -2,22 +2,22 @@ USING: kernel math.blas.matrices math.blas.vectors parser
arrays prettyprint.backend sequences ;
IN: math.blas.syntax
: svector{ ( accum -- accum )
: svector{
\ } [ >float-blas-vector ] parse-literal ; parsing
: dvector{ ( accum -- accum )
: dvector{
\ } [ >double-blas-vector ] parse-literal ; parsing
: cvector{ ( accum -- accum )
: cvector{
\ } [ >float-complex-blas-vector ] parse-literal ; parsing
: zvector{ ( accum -- accum )
: zvector{
\ } [ >double-complex-blas-vector ] parse-literal ; parsing
: smatrix{ ( accum -- accum )
: smatrix{
\ } [ >float-blas-matrix ] parse-literal ; parsing
: dmatrix{ ( accum -- accum )
: dmatrix{
\ } [ >double-blas-matrix ] parse-literal ; parsing
: cmatrix{ ( accum -- accum )
: cmatrix{
\ } [ >float-complex-blas-matrix ] parse-literal ; parsing
: zmatrix{ ( accum -- accum )
: zmatrix{
\ } [ >double-complex-blas-matrix ] parse-literal ; parsing
M: float-blas-vector pprint-delims drop \ svector{ \ } ;