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

Timestamp:

10/22/08 07:23:34 (12 years ago)

Author:

Ivan Raikov

Message:

Documentation updates.

File:

• release/3/nemo/trunk/nemo-nmodl.scm (modified) (3 diffs)

release/3/nemo/trunk/nemo-nmodl.scm

@@ -718 +718 @@
   (define (cid x)  (second x))
   (define (cn x)   (first x))
-  (let-optionals rest ((method 'cnexp) (table? #f) (min-v -100) (max-v 100) (step 0.5) (depend #f) 
-                       (kinetic (list)) )
+  (let-optionals rest ((method 'cnexp) (table? #f) (min-v -100) (max-v 100) (step 0.5) 
+                       (depend #f)  (kinetic (list)) )
   (match-let ((($ nemo:quantity 'DISPATCH  dis) (environment-ref sys (nemo-intern 'dispatch))))
     (let ((imports  ((dis 'imports)  sys))
@@ -731 +731 @@
              (asgns       ((dis 'asgns)   sys))
              (states      ((dis 'states)  sys))
-             (kinetic     (if (eq? kinetic 'all) states kinetic))
+             (kinetic     (if (eq? kinetic 'all) (delete-duplicates (map first states)) kinetic))
              (stcomps     ((dis 'stcomps) sys))
              (defuns      ((dis 'defuns)  sys))
@@ -737 +737 @@
              (ionchs      (filter-map (match-lambda ((name 'ion-channel id) (list name id)) (else #f)) components))
              (epools      (collect-epools sys)))
+
 
         (match-let (((state-list asgn-list g) deps*))