Changeset 30383 in project for release/4/blas


Ignore:
Timestamp:
01/30/14 01:58:44 (6 years ago)
Author:
Ivan Raikov
Message:

blas: fixed use of memq [thanks to Moritz Heidkamp]

Location:
release/4/blas/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/blas/trunk/blas.scm

    r26338 r30383  
    13321332                                    (let ((x (car fn)))
    13331333                                      (let ((bnds (case x
    1334                                                     (else    (if (and copy (memq x ret))
     1334                                                    (else    (if (and copy ret (memq x ret))
    13351335                                                                 (cons `(,x (,copy ,x)) bnds)
    13361336                                                                 bnds)))))
     
    15891589                      (let ((x (car fn)))
    15901590                        (let ((bnds (case x
    1591                                       (else    (if (and copy (memq x ret))
     1591                                      (else    (if (and copy ret (memq x ret))
    15921592                                                   (cons `(,x (,copy ,x)) bnds)
    15931593                                                   bnds)))))
     
    20832083                                    (let ((bnds (cond ((or (eq? x 'dotc) (eq? x 'dotu))
    20842084                                                       (cons `(,x (,(car make-return))) bnds))
    2085                                                       ((and copy (memq x ret))
     2085                                                      ((and copy ret (memq x ret))
    20862086                                                       (cons `(,x (,copy ,x)) bnds))
    20872087                                                      (else bnds))))
  • release/4/blas/trunk/blas.setup

    r26338 r30383  
    3232 'blas
    3333 `(,(dynld-name "blas") ,(dynld-name "blas.import") )
    34  '((version 4.0)
     34 '((version 4.1)
    3535   ))
    3636
Note: See TracChangeset for help on using the changeset viewer.