Changeset 14207 in project


Ignore:
Timestamp:
04/09/09 16:11:29 (11 years ago)
Author:
Kon Lovett
Message:

Just alist-cons

Location:
release/4/check-errors
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/check-errors/tags/1.0.0/conditions.scm

    r14139 r14207  
    1818  (make-condition-predicate condition-predicate*))
    1919
    20 (import scheme chicken srfi-1 #;srfi-12)
     20(import scheme chicken (only srfi-1 alist-cons) #;srfi-12)
    2121(require-library srfi-1 #;srfi-12)
    2222
     
    6060(define-syntax make-condition-predicate
    6161  (syntax-rules ()
    62     ((_ tag0 ...)
    63      (lambda (obj)
    64        (and ((condition-predicate* 'tag0) obj) ...) ) ) ) )
     62    ((_ tag0 ...) (lambda (obj) (and ((condition-predicate* 'tag0) obj) ...) ) ) ) )
    6563
    6664) ;module conditions
  • release/4/check-errors/trunk/conditions.scm

    r14139 r14207  
    1818  (make-condition-predicate condition-predicate*))
    1919
    20 (import scheme chicken srfi-1 #;srfi-12)
     20(import scheme chicken (only srfi-1 alist-cons) #;srfi-12)
    2121(require-library srfi-1 #;srfi-12)
    2222
     
    6060(define-syntax make-condition-predicate
    6161  (syntax-rules ()
    62     ((_ tag0 ...)
    63      (lambda (obj)
    64        (and ((condition-predicate* 'tag0) obj) ...) ) ) ) )
     62    ((_ tag0 ...) (lambda (obj) (and ((condition-predicate* 'tag0) obj) ...) ) ) ) )
    6563
    6664) ;module conditions
Note: See TracChangeset for help on using the changeset viewer.