Changeset 21975 in project


Ignore:
Timestamp:
12/13/10 17:24:35 (9 years ago)
Author:
Alan Post
Message:

when optional (?) is also tagged with (), honor when no match is found.

I was accidentally passing the empty-string on the non-match case,
which was not being recognized by the parser as a command to not
alter the parse tree.

File:
1 edited

Legend:

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

    r21950 r21975  
    207207;;
    208208(define (nunjavni-? javni #!key cmene nastura (empty-string ""))
    209   (let ((vejmina (venunjmina-nunvalsi cmene nastura)))
     209  (let ((vejmina (venunjmina-nunvalsi cmene nastura))
     210        (novejmina (if nastura
     211                       (lambda () (make-javni-valsi cmene secuxna-nastura))
     212                       (lambda () (make-javni-valsi cmene empty-string)))))
    210213    (define (javni-? porsi mapti ignore-namapti)
    211214
     
    218221        ; on failure, so we can use it.
    219222        ;
    220         (mapti porsi
    221                (lambda () (make-javni-valsi cmene empty-string))))
     223        (mapti porsi novejmina))
    222224
    223225      (javni porsi mapti-? namapti-?))
Note: See TracChangeset for help on using the changeset viewer.