Changeset 7878 in project


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

forgot to add this. if-condition for simple condition catching.

File:
1 edited

Legend:

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

    r7871 r7878  
    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
    752758
    753759;;; SRFI-9:
Note: See TracChangeset for help on using the changeset viewer.