Changeset 30383 in project for release/4/blas/trunk/blas.scm


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

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

File:
1 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))))
Note: See TracChangeset for help on using the changeset viewer.