Changeset 13180 in project


Ignore:
Timestamp:
02/05/09 01:24:53 (11 years ago)
Author:
Ivan Raikov
Message:

Save.

Location:
release/3/nemo/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/examples/AKP06/AKP06.nemo

    r13052 r13180  
    4040                             (cmb * (exp (neg ((v + cvb) / ckb))))))
    4141                         
    42                          (hh-ionic-conductance
     42                         (hh-ionic-gate
    4343                          (Kv1  ;; ion name: exported variables will be of the form {ion}_{id}
    4444                           (initial-m (Kv1_amf (Vrest) / (Kv1_amf (Vrest) + Kv1_bmf (Vrest))))
     
    7777                             (ca * exp((neg (v + cvb)) / ckb) )))
    7878                         
    79                          (hh-ionic-conductance
     79                         (hh-ionic-gate
    8080                          (Kv3  ;; ion name: exported variables will be of the form {ion}_{id}
    8181                           (initial-m (Kv3_amf (Vrest) / (Kv3_amf (Vrest) + Kv3_bmf (Vrest))))
     
    153153                             (cbh / (1.0 + (exp (neg ((v + cvbh) / ckbh)))))))
    154154
    155                          (hh-ionic-conductance
     155                         (hh-ionic-gate
    156156                          (Kv4  ;; ion name: exported variables will be of the form {ion}_{id}
    157157                           (initial-m (Kv4_amf (Vrest) / (Kv4_amf (Vrest) + Kv4_bmf (Vrest))) )
     
    196196                             (cct + (cat * exp (neg (pow (((v + cvt) / ckt) 2)))))))
    197197                         
    198                          (hh-ionic-conductance
     198                         (hh-ionic-gate
    199199                          (Ih  ;; ion name: exported variables will be of the form {ion}_{id}
    200200                           (initial-m (Ih_inf (Vrest)))
     
    244244                               else (1e3 * (0.00026367 + (0.1278 * exp (0.10327 * v))))))
    245245
    246                          (hh-ionic-conductance
     246                         (hh-ionic-gate
    247247                          (CaP  ;; ion name: exported variables will be of the form {ion}_{id}
    248248                           (initial-m  (CaP_inf (Vrest)))
     
    316316
    317317                         
    318                          (hh-ionic-conductance
     318                         (hh-ionic-gate
    319319                          (CaBK  ;; ion name: exported variables will be of the form {ion}_{id}
    320320                           (initial-m  (CaBK_minf (Vrest) / temp_adj))
  • release/3/nemo/trunk/examples/carelli05.nemo

    r13052 r13180  
    3434              (component (type gate)
    3535
    36                          (hh-ionic-conductance
     36                         (hh-ionic-gate
    3737                          (Na  ;; ion name: exported variables will be of the form {ion}_{id}
    3838                           (initial-m (1 / (1 + (exp ((Vrest + 25.5) / -5.29)))))
     
    6262              (component (type gate)
    6363
    64                          (hh-ionic-conductance
     64                         (hh-ionic-gate
    6565                          (CaT
    6666                           (m-power 3)
     
    8989              (component (type gate)
    9090
    91                          (hh-ionic-conductance
     91                         (hh-ionic-gate
    9292                          (CaS
    9393                           (m-power 3)
     
    115115              (component (type gate)
    116116
    117                          (hh-ionic-conductance
     117                         (hh-ionic-gate
    118118                          (KCa
    119119                           (m-power 4)
     
    138138              (component (type gate)
    139139
    140                          (hh-ionic-conductance
     140                         (hh-ionic-gate
    141141                          (Kd
    142142                           (m-power 4)
     
    161161              (component (type gate)
    162162
    163                          (hh-ionic-conductance
     163                         (hh-ionic-gate
    164164                          (A
    165165                           (gbar 50)
     
    187187              (component (type gate)
    188188
    189                          (hh-ionic-conductance
     189                         (hh-ionic-gate
    190190                          (H
    191191                           (m-power 1)
  • release/3/nemo/trunk/examples/hh-superstrate.nemo

    r12708 r13180  
    2828            (defun bhf (v)   (1.0  /  (1.0 + (exp ((neg (v + 35)) / 10)))))
    2929
    30             (hh-ionic-conductance
     30            (hh-ionic-gate
    3131             (Na  ;; ion name: exported variables will be of the form {ion}_{id}
    3232              (initial-m (amf (Vrest) / (amf (Vrest) + bmf (Vrest))) )
     
    6060            (defun bnf (v)   (0.125 * (exp ((neg (v + 65)) / 80))))
    6161           
    62             (hh-ionic-conductance
     62            (hh-ionic-gate
    6363             (K  ;; ion name
    6464              (initial-m (anf (Vrest) / (anf (Vrest) + bnf (Vrest))) )
  • release/3/nemo/trunk/extensions/nemo-hh.scm

    r13040 r13180  
    6161                  [(exn) dflt]))
    6262
    63 (define (hh-ionic-conductance-transform sys parse-expr eval-const env-extend! add-external! component-extend! comp en)
     63(define (hh-ionic-gate-transform sys parse-expr eval-const env-extend! add-external! component-extend! comp en)
    6464  (define (and-parse-expr x . rest) (and x (apply parse-expr (cons x rest))))
    6565  (match en
    6666         ((or (('hh 'ionic 'conductance)  ('name (? symbol? ion)) . alst)
    67               (('hh-ionic-conductance)    ('name (? symbol? ion)) . alst))
     67              (('hh-ionic-gate)    ('name (? symbol? ion)) . alst))
    6868          (check-decls ion '(m-power h-power) alst)
    6969          (let ((suffix (->string ion))
    7070                (m-power (eval-const sys (parse-expr (lookup-field 'm-power alst)
    71                                                      `(hh-ionic-conductance ,ion (m-power))
     71                                                     `(hh-ionic-gate ,ion (m-power))
    7272                                                     )))
    7373                (h-power (eval-const sys (parse-expr (lookup-field 'h-power alst 0)
    74                                                      `(hh-ionic-conductance ,ion (h-power))
     74                                                     `(hh-ionic-gate ,ion (h-power))
    7575                                                     ))))
    7676           
     
    9797                                         
    9898            (let* ((initial-m  ((lambda (x)
    99                                   (let ((expr (parse-expr x `(hh-ionic-conductance ,ion (initial-m)))))
     99                                  (let ((expr (parse-expr x `(hh-ionic-gate ,ion (initial-m)))))
    100100                                    (handle (lambda () (eval-const sys expr)) expr)))
    101101                                (lookup-field 'initial-m alst)))
    102102                   (m-inf      (and-parse-expr (lookup-field 'm-inf alst)
    103                                                `(hh-ionic-conductance ,ion (m-inf))))
     103                                               `(hh-ionic-gate ,ion (m-inf))))
    104104                   (m-tau      (and-parse-expr (lookup-field 'm-tau alst)
    105                                                `(hh-ionic-conductance ,ion (m-tau))))
     105                                               `(hh-ionic-gate ,ion (m-tau))))
    106106                   (m-inf-sym  (p$ ion 'm-inf))
    107107                   (m-tau-sym  (p$ ion 'm-tau))
    108108                   (m-alpha    (or (and-parse-expr (lookup-field 'm-alpha alst)
    109                                                    `(hh-ionic-conductance ,ion (m-alpha)))
     109                                                   `(hh-ionic-gate ,ion (m-alpha)))
    110110                                   `(/ ,m-inf-sym ,m-tau-sym)))
    111111                   (m-beta     (or (and-parse-expr (lookup-field 'm-beta alst)
    112                                                    `(hh-ionic-conductance ,ion (m-beta)))   
     112                                                   `(hh-ionic-gate ,ion (m-beta)))   
    113113                                   `(/ (- 1 ,m-inf-sym) ,m-tau-sym)))
    114114                   (open       'O)
     
    128128            (if (positive? h-power)
    129129                (let* ((initial-h  ((lambda (x)
    130                                       (let ((expr (parse-expr x `(hh-ionic-conductance ,ion (initial-h)))))
     130                                      (let ((expr (parse-expr x `(hh-ionic-gate ,ion (initial-h)))))
    131131                                        (handle (lambda () (eval-const sys expr)) expr)))
    132132                                    (lookup-field 'initial-h alst)))
    133133                       (h-inf      (and-parse-expr (lookup-field 'h-inf alst)
    134                                                    `(hh-ionic-conductance ,ion (h-inf))))
     134                                                   `(hh-ionic-gate ,ion (h-inf))))
    135135                       (h-tau      (and-parse-expr (lookup-field 'h-tau alst)
    136                                                    `(hh-ionic-conductance ,ion (h-tau))))
     136                                                   `(hh-ionic-gate ,ion (h-tau))))
    137137                       (h-alpha    (or (and-parse-expr (lookup-field 'h-alpha alst)
    138                                                        `(hh-ionic-conductance ,ion (h-alpha)))
     138                                                       `(hh-ionic-gate ,ion (h-alpha)))
    139139                                       `(/ ,h-inf ,h-tau)))
    140140                       (h-beta     (or (and-parse-expr (lookup-field 'h-beta alst)
    141                                                        `(hh-ionic-conductance ,ion (h-beta)))
     141                                                       `(hh-ionic-gate ,ion (h-beta)))
    142142                                       `(/ (- 1 ,h-inf) ,h-tau)))
    143143
     
    168168                 (subcomps       ((dis 'component-subcomps) new-sys comp-name)))
    169169            (for-each (lambda (sym)
    170                         (hh-ionic-conductance-transform 
     170                        (hh-ionic-gate-transform 
    171171                         new-sys parse-expr (dis 'eval-const) env-extend! add-external! component-extend!
    172172                         comp-name (environment-ref new-sys sym)))
  • release/3/nemo/trunk/nemo-eggdoc.scm

    r12835 r13180  
    3232
    3333     (history
     34      (version "2.0"   "Introduced functors")
    3435      (version "1.15"  "Added nmodl-depend option")
    3536      (version "1.14"  "Added support for exponential Euler integration")
     
    197198             "of ion channel dynamics. ")
    198199
    199           (p (ebnf-form (ebnf-compound "HH-IONIC-CONDUCTANCE"
     200          (p (ebnf-form (ebnf-compound "HH-IONIC-GATE"
    200201               ( (ebnf-form (ebnf-var "ION-NAME" )
    201202                            (comment "Ion name: exported variables will be of the form " (tt "{ion}_{id}") ". ")
     
    251252
    252253;; Akemann and Knoepfel, J.Neurosci. 26 (2006) 4602
    253 
    254 (nemo-model PotIhCa
    255 
    256   ((input v  cai cao)
     254(nemo-model AKP06
     255
     256  ((input v
     257          (cai from ion-pools)
     258          (ica from ion-currents))
    257259             
    258260   (const Vrest   = -68)
     
    262264   (const temp_adj = (pow (3 ((celsius - 22) / 10))))
    263265
     266
    264267   (defun ghk (v celsius ci co)
    265268     (let ((F 96485.0) (R 8.3145))
     
    269272             else ((1e-6 * (2 * zeta * F) * (ci - (co * exp (neg (zeta))))) / (1.0 - exp (neg (zeta))))))))
    270273
    271    
    272    (decaying-pool (ca (initial 1e-4) (depth 0.1) (beta 1) (temp-adj temp_adj)))
    273    
     274   (component (type membrane-capacitance)
     275           (const C_m = 1)
     276           (output C_m))
     277
    274278   (component (type ion-channel) (name Kv1)
    275279             
     
    289293                             (cmb * (exp (neg ((v + cvb) / ckb))))))
    290294                         
    291                          (hh-ionic-conductance
     295                         (hh-ionic-gate
    292296                          (Kv1  ;; ion name: exported variables will be of the form {ion}_{id}
    293297                           (initial-m (Kv1_amf (Vrest) / (Kv1_amf (Vrest) + Kv1_bmf (Vrest))))
     
    308312             
    309313              ) ;; end Kv1 current
     314   
     315   (component (type ion-channel) (name Kv3)
     316             
     317              (component (type gate)
     318                         
     319                         ;; rate functions
     320                         (defun Kv3_amf (v)
     321                           (let ((ca   0.22)
     322                                 (cva  16)
     323                                 (cka  -26.5))
     324                             (ca * exp((neg (v + cva)) / cka) )))
     325                         
     326                         (defun Kv3_bmf (v)
     327                           (let ((ca   0.22)
     328                                 (cvb  16)
     329                                 (ckb  26.5))
     330                             (ca * exp((neg (v + cvb)) / ckb) )))
     331                         
     332                         (hh-ionic-gate
     333                          (Kv3  ;; ion name: exported variables will be of the form {ion}_{id}
     334                           (initial-m (Kv3_amf (Vrest) / (Kv3_amf (Vrest) + Kv3_bmf (Vrest))))
     335                           (m-power   4)
     336                           (h-power   0)
     337                           (m-alpha   (temp_adj * Kv3_amf (v) ))
     338                           (m-beta    (temp_adj * Kv3_bmf (v) ))))
     339                         
     340                         )
     341             
     342              (component (type pore)
     343                         (const  gbar_Kv3  = 0.005)
     344                         (output gbar_Kv3 ))
     345             
     346              (component (type permeating-substance) (name k)
     347                         (const e_Kv3 = -85)
     348                         (output e_Kv3 ))
     349
     350              (component (type binary-gate)
     351                         (const switch_Kv3 = 0)
     352                         
     353                         (const e0 = 1.60217646e-19)
     354                         (const gunit = 16)
     355                         (const nc = (1e12 * gbar_Kv3 / gunit))
     356                         (const zn = 1.9196)
     357
     358                         (defun gate_flip_Kv3 (v m)
     359                           (let ((a    (Kv3_amf (v)))
     360                                 (ab   (a + Kv3_bmf (v)))
     361                                 (tau  (1 / ab))
     362                                 (inf  (a / ab)))
     363                             ((inf - m) / tau)))
     364
     365                         (i_gate_Kv3 =
     366                           (if (switch_Kv3 > 0) then (nc * 1e6 * e0 * 4 * zn * gate_flip_Kv3(v Kv3_m)) else 0))
     367
     368                         (output i_gate_Kv3 ))
     369
     370              ) ;; end Kv3 current
     371
     372
    310373
    311374   (component (type ion-channel) (name Kv4)
     
    343406                             (cbh / (1.0 + (exp (neg ((v + cvbh) / ckbh)))))))
    344407
    345                          (hh-ionic-conductance
     408                         (hh-ionic-gate
    346409                          (Kv4  ;; ion name: exported variables will be of the form {ion}_{id}
    347410                           (initial-m (Kv4_amf (Vrest) / (Kv4_amf (Vrest) + Kv4_bmf (Vrest))) )
     
    386449                             (cct + (cat * exp (neg (pow (((v + cvt) / ckt) 2)))))))
    387450                         
    388                          (hh-ionic-conductance
     451                         (hh-ionic-gate
    389452                          (Ih  ;; ion name: exported variables will be of the form {ion}_{id}
    390453                           (initial-m (Ih_inf (Vrest)))
     
    406469             
    407470              ) ;; end Ih current
    408    
     471
     472   (component (type ion-channel) (name Leak)
     473             
     474              (component (type pore)
     475                         (const  gbar_Leak  = 9e-5)
     476                         (output gbar_Leak ))
     477             
     478              (component (type permeating-substance) (name non-specific)
     479                         (const e_Leak = -61)
     480                         (output e_Leak ))
     481             
     482              ) ;; end leak current
     483
     484
    409485   (component (type ion-channel) (name CaP)
    410486             
     
    421497                               else (1e3 * (0.00026367 + (0.1278 * exp (0.10327 * v))))))
    422498
    423                          (hh-ionic-conductance
     499                         (hh-ionic-gate
    424500                          (CaP  ;; ion name: exported variables will be of the form {ion}_{id}
    425501                           (initial-m  (CaP_inf (Vrest)))
     
    433509              (component (type pore)
    434510                         (const gmax_CaP  = 0.01667)
     511                         (const cao       = 2.4)
    435512                         (gbar_CaP        = (gmax_CaP * ghk (v celsius cai cao)))
    436513                         (output gbar_CaP ))
     
    440517             
    441518              ) ;; end CaP current
    442 
    443519
    444520   (component (type ion-channel) (name CaBK)
     
    493569
    494570                         
    495                          (hh-ionic-conductance
     571                         (hh-ionic-gate
    496572                          (CaBK  ;; ion name: exported variables will be of the form {ion}_{id}
    497573                           (initial-m  (CaBK_minf (Vrest) / temp_adj))
     
    515591             
    516592              ) ;; end BK current
    517              
    518              ))
     593
     594
     595    (component (type decaying-pool) (name ca)
     596              (const  F = 96485.0)
     597              (const  ca_initial = 1e-4)
     598              (const  ca_depth   = 0.1)
     599              (const  ca_beta    = 1.0)
     600             
     601              (d (ca) = ((neg (ica) / (2 * F * ca_initial * ca_depth)) -
     602                         (ca * ca_beta * temp_adj))
     603                        (initial ca_initial))
     604             
     605              (output ca)
     606              )
     607           
     608
     609   (functor (name Nafun) (type ion-channel)
     610            ( Na_Con Na_Coff Na_Oon Na_Ooff Na_alfac Na_btfac
     611                     Na_alpha Na_beta Na_gamma Na_delta Na_epsilon Na_zeta Na_x1 Na_x2
     612                     Na_x3 Na_x4 Na_x5 Na_x6 ) =
     613                     
     614                     (component (type gate)
     615                               
     616                ;; rate functions
     617                (f01 = (4.0 * Na_alpha * exp (v / Na_x1) * temp_adj))
     618                (f02 = (3.0 * Na_alpha * exp (v / Na_x1) * temp_adj))
     619                (f03 = (2.0 * Na_alpha * exp (v / Na_x1) * temp_adj))
     620                (f04 = (Na_alpha * exp (v / Na_x1) * temp_adj))
     621                (f0O = (Na_gamma * exp (v / Na_x3) * temp_adj))
     622                (fip = (Na_epsilon * exp (v / Na_x5) * temp_adj))
     623                (f11 = (4.0 * Na_alpha * Na_alfac * exp (v / Na_x1) * temp_adj))
     624                (f12 = (3.0 * Na_alpha * Na_alfac * exp (v / Na_x1) * temp_adj))
     625                (f13 = (2.0 * Na_alpha * Na_alfac * exp (v / Na_x1) * temp_adj))
     626                (f14 = (Na_alpha * Na_alfac * exp (v / Na_x1) * temp_adj))
     627                (f1n = (Na_gamma * exp (v / Na_x3) * temp_adj))
     628               
     629                (fi1 = (Na_Con * temp_adj))
     630                (fi2 = (Na_Con * Na_alfac * temp_adj))
     631                (fi3 = (Na_Con * Na_alfac * Na_alfac * temp_adj))
     632                (fi4 = (Na_Con * Na_alfac * Na_alfac * Na_alfac * temp_adj))
     633                (fi5 = (Na_Con * Na_alfac * Na_alfac * Na_alfac * Na_alfac * temp_adj))
     634                (fin = (Na_Oon * temp_adj))
     635               
     636                (b01 = (Na_beta * exp (v / Na_x2) * temp_adj))
     637                (b02 = (2.0 * Na_beta * exp (v / Na_x2) * temp_adj))
     638                (b03 = (3.0 * Na_beta * exp (v / Na_x2) * temp_adj))
     639                (b04 = (4.0 * Na_beta * exp (v / Na_x2) * temp_adj))
     640                (b0O = (Na_delta * exp (v / Na_x4) * temp_adj))
     641                (bip = (Na_zeta * exp (v / Na_x6) * temp_adj))
     642               
     643                (b11 = (Na_beta * Na_btfac * exp (v / Na_x2) * temp_adj))
     644                (b12 = (2.0 * Na_beta * Na_btfac * exp (v / Na_x2) * temp_adj))
     645                (b13 = (3.0 * Na_beta * Na_btfac * exp (v / Na_x2) * temp_adj))
     646                (b14 = (4.0 * Na_beta * Na_btfac * exp (v / Na_x2) * temp_adj))
     647                (b1n = (Na_delta * exp (v / Na_x4) * temp_adj))
     648               
     649                (bi1 = (Na_Coff * temp_adj))
     650                (bi2 = (Na_Coff * Na_btfac * temp_adj))
     651                (bi3 = (Na_Coff * Na_btfac * Na_btfac * temp_adj))
     652                (bi4 = (Na_Coff * Na_btfac * Na_btfac * Na_btfac * temp_adj))
     653                (bi5 = (Na_Coff * Na_btfac * Na_btfac * Na_btfac * Na_btfac * temp_adj))
     654                (bin = (Na_Ooff * temp_adj))
     655               
     656                (reaction
     657                    (Na_z
     658                     (transitions
     659                      (<-> C1 C2 f01 b01)
     660                      (<-> C2 C3 f02 b02)
     661                      (<-> C3 C4 f03 b03)
     662                      (<-> C4 C5 f04 b04)
     663                      (<-> C5 O  f0O b0O)
     664                      (<-> O  B  fip bip)
     665                      (<-> O  I6 fin bin)
     666                      (<-> I1 I2 f11 b11)
     667                      (<-> I2 I3 f12 b12)
     668                      (<-> I3 I4 f13 b13)
     669                      (<-> I4 I5 f14 b14)
     670                      (<-> I5 I6 f1n b1n)
     671                      (<-> C1 I1 fi1 bi1)
     672                      (<-> C2 I2 fi2 bi2)
     673                      (<-> C3 I3 fi3 bi3)
     674                      (<-> C4 I4 fi4 bi4)
     675                      (<-> C5 I5 fi5 bi5))
     676
     677                      (conserve (1 = (C1 + C2 + C3 + C4 + C5 + O + B + I1 + I2 + I3 + I4 + I5 + I6)))
     678                     
     679                     (open O)   (power 1)))
     680                   
     681                   (output Na_z ) 
     682                   
     683                   )
     684                       
     685                (component (type pore)
     686                           (const  gbar  = 0.016)
     687                           (output gbar ))
     688               
     689                (component (type permeating-substance) (name na)
     690                           (const e = -88)
     691                           (output e ))
     692               
     693                ) ;; end Nafun functor
     694
     695
     696
     697     (component (name Na) =
     698                Nafun ((const Na_Con   = 0.005)
     699                       (const Na_Coff  = 0.5)
     700                       (const Na_Oon   = 2.3)
     701                       (const Na_Ooff  = 0.005)
     702                       
     703                       (const Na_alfac = (pow ((Na_Oon / Na_Con) (1.0 / 4.0))))
     704                       (const Na_btfac = (pow ((Na_Ooff / Na_Coff) (1.0 / 4.0))))
     705                       
     706                       (const Na_alpha = 150)
     707                       (const Na_beta  = 3)
     708                       (const Na_gamma = 150)
     709                       (const Na_delta = 40)
     710                       (const Na_epsilon = 1e-12)
     711                       (const Na_zeta = 0.03)
     712                       (const Na_x1 = 20)
     713                       (const Na_x2 = -20)
     714                       (const Na_x3 = 1000000000000.0)
     715                       (const Na_x4 = -1000000000000.0)
     716                       (const Na_x5 = 1000000000000.0)
     717                       (const Na_x6 = -25)))
     718     ;; end Na current
     719
     720     (component (name Narsg) =
     721                Nafun ((const Na_Con   = 0.005)
     722                       (const Na_Coff  = 0.5)
     723                       (const Na_Oon   = 0.75)
     724                       (const Na_Ooff  = 0.005)
     725                       
     726                       (const Na_alfac = (pow ((Na_Oon / Na_Con) (1.0 / 4.0))))
     727                       (const Na_btfac = (pow ((Na_Ooff / Na_Coff) (1.0 / 4.0))))
     728                       
     729                       (const Na_alpha = 150)
     730                       (const Na_beta  = 3)
     731                       (const Na_gamma = 150)
     732                       (const Na_delta = 40)
     733                       (const Na_epsilon = 1.75)
     734                       (const Na_zeta = 0.03)
     735                       (const Na_x1 = 20)
     736                       (const Na_x2 = -20)
     737                       (const Na_x3 = 1000000000000.0)
     738                       (const Na_x4 = -1000000000000.0)
     739                       (const Na_x5 = 1000000000000.0)
     740                       (const Na_x6 = -25)))
     741     ;; end Narsg current
     742
     743   ))
    519744
    520745EOF
  • release/3/nemo/trunk/nemo.scm

    r12960 r13180  
    511511                        (if (not id)
    512512                            (error 'hh-template "hh ionic conductance definition requires id attribute"))
    513                         `(hh-ionic-conductance
     513                        `(hh-ionic-gate
    514514                          (,($ id)
    515515                           ,@(if initial_m `((initial-m ,initial_m)) `())
  • release/3/nemo/trunk/nemo.setup

    r13004 r13180  
    2323
    2424  ; Assoc list with properties for your extension:
    25   `((version 1.16)
     25  `((version 2.0)
    2626    ;(documentation "nemo.html")
    2727    ,@(if has-exports? `((exports "nemo-core.exports")) (list)) ))
     
    4242
    4343  ; Assoc list with properties for your extension:
    44   `((version 1.16)
     44  `((version 2.0)
    4545    ;(documentation "nemo.html")
    4646    ,@(if has-exports? `((exports "nemo-utils.exports")) (list)) ))
     
    6363
    6464  ; Assoc list with properties for your extension:
    65   `((version 1.16)
     65  `((version 2.0)
    6666    ;(documentation "nemo.html")
    6767    ,@(if has-exports? `((exports "nemo-ionch.exports")) (list)) ))
     
    7171 'nemo-macros
    7272 `("nemo-macros.scm" )
    73  `((version 1.16)
     73 `((version 2.0)
    7474   (syntax)
    7575   (require-at-runtime nemo-core)))
     
    9090
    9191  ; Assoc list with properties for your extension:
    92   `((version 1.16)
     92  `((version 2.0)
    9393    ,@(if has-exports? `((exports "nemo-nmodl.exports")) (list)) ))
    9494
     
    109109     
    110110     ;; Assoc list with properties for your extension:
    111      `((version 1.16)
     111     `((version 2.0)
    112112       ,@(if has-exports? `((exports "nemo-matlab.exports")) (list)) )))
    113113
     
    128128
    129129  ; Assoc list with properties for your extension:
    130   `((version 1.16)
     130  `((version 2.0)
    131131    ,@(if has-exports? `((exports "nemo-hh.exports")) (list)) ))
    132132
     
    142142
    143143  ; Assoc list with properties for the program:
    144   '((version 1.16)
     144  '((version 2.0)
    145145    (documentation "nemo.html")))
    146146
Note: See TracChangeset for help on using the changeset viewer.