Changeset 7875 in project


Ignore:
Timestamp:
01/23/08 12:54:05 (12 years ago)
Author:
Ivan Raikov
Message:

Some modifications to the ode-hhsm extension.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ode/trunk/extensions/ode-hhsm.scm

    r7357 r7875  
    9898           (else (tab m (lambda (m) (msym m)))))))))
    9999
    100 
     100#|
    101101(define (make-coupling chain-names state in-rate out-rate)
    102102  (let ((si (map cdr state))
     
    105105                      ((= 1 (length state)) msym))))
    106106    (let ((sts (map (lambda (cn) ($ (apply (stname cn) si))) chain-names)))
    107      
     107|#     
    108108     
    109109 
     
    293293   (let ((ode (match (environment-ref sys (ode-intern 'odecore))
    294294                     (($ ode:quantity 'ODECORE value)  value)))
    295         (new-env (ode:env-copy sys #t)))
    296     (let ((env-extend! ((ode 'env-extend!) new-env))
    297           (eqdef!      ((ode 'eqdef!) new-env))
     295        (new-sys (ode:env-copy sys #t)))
     296    (let ((env-extend! ((ode 'env-extend!) new-sys))
     297          (eqdef!      ((ode 'eqdef!) new-sys))
    298298          (eval-const  (ode 'eval-const)))
    299299      (environment-for-each sys 
     
    306306                   (env-extend! (gensym 'rate) '(rate) rates)))
    307307
     308#|
    308309                ((or (('coupled 'ionic 'conductance) ('name ion) . lst)
    309310                     (('coupled-ionic-conductance)   ('name ion) . lst))
     
    328329                                (ode:error 'ode:hhsm-transformer "coupling factor in "
    329330                                           "coupled conductance declaration " ion
    330                                            " must be a numeric constant"))
     331                                           " must be a numeric constant"))))
    331332
    332333
     
    357358                                        (map cdr chains)) coupling-scheme))
    358359                            (env-extend! (gensym 'rate) '(rate) (c+ chains1))))
    359                          
    360360                          (else
    361361                          (ode:error 'ode:hhsm-transformer "coupled conductance declaration " ion
    362362                                     " has neither coupling factor nor coupling scheme specified")))))
    363 
    364                 (else (void)))))
    365      (pr-transformer new-env)))))
    366 
    367 
     363|#                       
     364
     365                  (else (void)))))
     366     (pr-transformer new-sys)))))
     367
     368
Note: See TracChangeset for help on using the changeset viewer.