Changeset 21754 in project


Ignore:
Timestamp:
12/01/10 16:20:30 (9 years ago)
Author:
Alan Post
Message:

genturfa'i: .i zo set-cdr si zo set .i xy na liste

File:
1 edited

Legend:

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

    r21751 r21754  
    4646    (call-with-values
    4747      (lambda () (unzip4 smuni))
    48       (lambda (smuni-selci smuni-nunselci smuni set-cdr)
     48      (lambda (smuni-selci smuni-nunselci smuni set)
    4949        (if (not (null? smuni))
    5050            `(let (,@smuni-selci)
     
    5252                 (let (,@smuni)
    5353                   (tolmohi-nunjavni)
    54                    ,@set-cdr
     54                   ,@set
    5555                   ,(string->symbol (string-append selci "*")))))
    5656            '())))))
Note: See TracChangeset for help on using the changeset viewer.