Changeset 22175 in project


Ignore:
Timestamp:
01/03/11 03:11:07 (9 years ago)
Author:
Alan Post
Message:

genturfa'i: klani is the sum of mapti and namapti, and can be calculated.

This change affects the output of the profiling report.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/genturfahi/trunk/junla.scm

    r22102 r22175  
    2323
    2424(define-record-type javni-merli
    25   (make-javni-merli temci klani mapti namapti)
     25  (make-javni-merli temci mapti namapti)
    2626  javni-merli?
    2727  (temci   javni-merli-temci   set-javni-merli-temci!)
    28   (klani   javni-merli-klani   set-javni-merli-klani!)
    2928  (mapti   javni-merli-mapti   set-javni-merli-mapti!)
    3029  (namapti javni-merli-namapti set-javni-merli-namapti!))
     
    4342        (define (datni cmene javni-merli)
    4443          (let ((temci   (javni-merli-temci   javni-merli))
    45                 (klani   (javni-merli-klani   javni-merli))
    4644                (mapti   (javni-merli-mapti   javni-merli))
    4745                (namapti (javni-merli-namapti javni-merli)))
     
    5351            ;
    5452            `(,cmene (("temci"   ,temci)
    55                       ("klani"   ,klani)
    5653                      ("mapti"   ,mapti)
    5754                      ("namapti" ,namapti)))))
     
    6158
    6259      (lambda (cmene javni)
    63         (let ((javni-merli (make-javni-merli 0 0 0 0)))
     60        (let ((javni-merli (make-javni-merli 0 0 0)))
    6461          (define (javni-junla porsi mapti namapti #!rest cmene-sumti)
    6562                  ; start the timer
     
    6966                      ; stop the timer
    7067                (let ((fanmo (time->seconds (current-time)))
    71                       (temci (javni-merli-temci javni-merli))
    72                       (klani (javni-merli-klani javni-merli)))
    73                   (set-javni-merli-temci! javni-merli (+ temci (- fanmo cfari)))
    74                   (set-javni-merli-klani! javni-merli (+ 1 klani))))
     68                      (temci (javni-merli-temci javni-merli)))
     69                  (set-javni-merli-temci! javni-merli
     70                                          (+ temci (- fanmo cfari)))))
    7571
    7672              (define (mapti-junla porsi nunvalsi)
Note: See TracChangeset for help on using the changeset viewer.