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 ; arrays prettyprint.backend sequences ;
IN: math.blas.syntax IN: math.blas.syntax
: svector{ ( accum -- accum ) : svector{
\ } [ >float-blas-vector ] parse-literal ; parsing \ } [ >float-blas-vector ] parse-literal ; parsing
: dvector{ ( accum -- accum ) : dvector{
\ } [ >double-blas-vector ] parse-literal ; parsing \ } [ >double-blas-vector ] parse-literal ; parsing
: cvector{ ( accum -- accum ) : cvector{
\ } [ >float-complex-blas-vector ] parse-literal ; parsing \ } [ >float-complex-blas-vector ] parse-literal ; parsing
: zvector{ ( accum -- accum ) : zvector{
\ } [ >double-complex-blas-vector ] parse-literal ; parsing \ } [ >double-complex-blas-vector ] parse-literal ; parsing
: smatrix{ ( accum -- accum ) : smatrix{
\ } [ >float-blas-matrix ] parse-literal ; parsing \ } [ >float-blas-matrix ] parse-literal ; parsing
: dmatrix{ ( accum -- accum ) : dmatrix{
\ } [ >double-blas-matrix ] parse-literal ; parsing \ } [ >double-blas-matrix ] parse-literal ; parsing
: cmatrix{ ( accum -- accum ) : cmatrix{
\ } [ >float-complex-blas-matrix ] parse-literal ; parsing \ } [ >float-complex-blas-matrix ] parse-literal ; parsing
: zmatrix{ ( accum -- accum ) : zmatrix{
\ } [ >double-complex-blas-matrix ] parse-literal ; parsing \ } [ >double-complex-blas-matrix ] parse-literal ; parsing
M: float-blas-vector pprint-delims drop \ svector{ \ } ; M: float-blas-vector pprint-delims drop \ svector{ \ } ;