Changeset 29882 in project


Ignore:
Timestamp:
10/09/13 15:23:59 (8 years ago)
Author:
Ivan Raikov
Message:

nemo: bug fixes to defaults parameter handling in matlab backend

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/nemo-matlab.scm

    r29784 r29882  
    168168
    169169       ((op . rest) 
    170        (let ((op (case op ((pow)  '^)  ((ln) 'log) (else op))))
    171         (let ((fe
     170        (let ((op (case op ((pow)  '^)  ((ln) 'log) (else op))))
     171          (let ((fe
    172172                (if (member op matlab-ops)
    173173                    (let ((mdiv?  (any (lambda (x) (match x (('* . _) #t) (('/ . _) #t) (else #f))) rest))
     
    206206               fe))))
    207207     
    208       (else  (let ((fe (doc:text (->string expr))))
     208      (else  (let ((fe (doc:text (->string (if (symbol? expr) (matlab-name expr) expr)))))
    209209               (if rv
    210210                   (stmt/MATLAB (format-op/MATLAB indent " = " (list (format-expr/MATLAB indent+ rv ) fe)))
     
    480480                       ))
    481481                   '()
    482                     (append const-defs defaults)))
     482                    const-defs))
    483483               (s+ sysname "_parameters")))
    484484  )
Note: See TracChangeset for help on using the changeset viewer.