Mon Oct 2 16:40:11 CEST 2006 pdm@brailcom.org
authorpdm <pdm>
Mon, 2 Oct 2006 14:41:07 +0000 (14:41 +0000)
committerpdm <pdm>
Mon, 2 Oct 2006 14:41:07 +0000 (14:41 +0000)
  * Bug fix in preposition joining

czech.scm

index 12aa040..f5b7d27 100644 (file)
--- a/czech.scm
+++ b/czech.scm
         (begin
           ;; Basic joining    
           (let ((units* units))
-            (while units*
+            (while (cdr units*)
               (let ((w (unit-word (car units*))))
                 (if (or ;; Join non-syllabic prepositions
                         (czech-item.feat? w 'pos 'prep0)