Changeset 12239 in project for release/3/nemo/trunk/nemo-nmodl.scm


Ignore:
Timestamp:
10/22/08 07:23:34 (12 years ago)
Author:
Ivan Raikov
Message:

Documentation updates.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo-nmodl.scm

    r12238 r12239  
    718718  (define (cid x)  (second x))
    719719  (define (cn x)   (first x))
    720   (let-optionals rest ((method 'cnexp) (table? #f) (min-v -100) (max-v 100) (step 0.5) (depend #f)
    721                        (kinetic (list)) )
     720  (let-optionals rest ((method 'cnexp) (table? #f) (min-v -100) (max-v 100) (step 0.5)
     721                       (depend #f)  (kinetic (list)) )
    722722  (match-let ((($ nemo:quantity 'DISPATCH  dis) (environment-ref sys (nemo-intern 'dispatch))))
    723723    (let ((imports  ((dis 'imports)  sys))
     
    731731             (asgns       ((dis 'asgns)   sys))
    732732             (states      ((dis 'states)  sys))
    733              (kinetic     (if (eq? kinetic 'all) states kinetic))
     733             (kinetic     (if (eq? kinetic 'all) (delete-duplicates (map first states)) kinetic))
    734734             (stcomps     ((dis 'stcomps) sys))
    735735             (defuns      ((dis 'defuns)  sys))
     
    737737             (ionchs      (filter-map (match-lambda ((name 'ion-channel id) (list name id)) (else #f)) components))
    738738             (epools      (collect-epools sys)))
     739
    739740
    740741        (match-let (((state-list asgn-list g) deps*))
Note: See TracChangeset for help on using the changeset viewer.