Changeset 22106 in project


Ignore:
Timestamp:
12/25/10 06:57:28 (9 years ago)
Author:
Alan Post
Message:

genturfa'i: make nunjavni-samselpla-cabna stylistically similar to other rules.

File:
1 edited

Legend:

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

    r22105 r22106  
    472472
    473473(define (nunjavni-samselpla-cabna samselpla javni #!key cmene)
    474   (define javni-samselpla (nunjavni-samselpla samselpla javni))
    475 
    476   (define (javni-samselpla-cabna porsi mapti namapti)
    477     (define (mapti-samselpla-cabna porsi nunvalsi)
    478       (nunvalsi)
    479       (mapti porsi (make-javni-valsi cmene secuxna-nastura)))
    480 
    481     (javni-samselpla porsi mapti-samselpla-cabna namapti))
    482   javni-samselpla-cabna)
     474  (let ((javni-samselpla (nunjavni-samselpla samselpla javni)))
     475    (define (javni-samselpla-cabna porsi mapti namapti)
     476      (define (mapti-samselpla-cabna porsi nunvalsi)
     477        (nunvalsi)
     478        (mapti porsi (make-javni-valsi cmene secuxna-nastura)))
     479
     480      (javni-samselpla porsi mapti-samselpla-cabna namapti))
     481    javni-samselpla-cabna))
    483482
    484483(define (nunjavni-cmene javni #!key cmene nastura)
Note: See TracChangeset for help on using the changeset viewer.