Wed Jun 21 09:28:28 CEST 2006 pdm@brailcom.org
authorpdm <pdm>
Mon, 2 Oct 2006 11:40:32 +0000 (11:40 +0000)
committerpdm <pdm>
Mon, 2 Oct 2006 11:40:32 +0000 (11:40 +0000)
  * Use czech-max instead of max

czech.scm

index 2fa57f8..a67ebab 100644 (file)
--- a/czech.scm
+++ b/czech.scm
         (let ((last-time (car (car times-values)))
               (last-value (cadr (car times-values)))
               (last-seg (item.relation.daughtern syl 'SylStructure)))
-          (set! times-values (cons (list (max (- (item.feat last-seg 'end) 0.01)
-                                              (+ last-time 0.001))
+          (set! times-values (cons (list (czech-max (- (item.feat last-seg 'end) 0.01)
+                                                    (+ last-time 0.001))
                                          last-value)
                                    times-values))))
     (reverse times-values)))