Changeset 7879 in project


Ignore:
Timestamp:
01/23/08 16:59:04 (12 years ago)
Author:
elf
Message:

let->let*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-more-macros.scm

    r7878 r7879  
    711711
    712712(define-macro (condition-case exp . clauses)
    713   (let ([exvar (gensym)]
    714         [ccvar (gensym)]
    715         [evar (gensym)]
    716         [elsvar (gensym)]
    717         [elsbod `((##sys#apply ##sys#values ,elsvar))]
    718         [kvar (gensym)] )
     713  (let* ([exvar (gensym)]
     714         [ccvar (gensym)]
     715         [evar (gensym)]
     716         [elsvar (gensym)]
     717         [elsbod `((##sys#apply ##sys#values ,elsvar))]
     718         [kvar (gensym)] )
    719719    (define (parse-clause c)
    720720      (let* ([els (and (symbol? (car c)) (eq? 'else (car c)))]
     
    750750                    (##sys#apply (lambda ,elsvar ,@elsbod) ,evar)))))))
    751751
    752 (define-macro (if-condition texp bvar bbody gll gbody)
    753     `(condition-case ,texp
    754         (,bvar () ,bbody)
    755         (else ,gll ,gbody)))
    756 
    757 
    758752
    759753;;; SRFI-9:
Note: See TracChangeset for help on using the changeset viewer.