Changeset 9904 in project


Ignore:
Timestamp:
03/20/08 11:53:33 (12 years ago)
Author:
Alex Shinn
Message:

Fixing bug where (a ...) matched non-lists.

Location:
release/3/matchable
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/matchable/matchable.scm

    r9710 r9904  
    1616;; hit.
    1717
     18;; 2008/03/20 - fixing bug where (a ...) matched non-lists
    1819;; 2008/03/15 - removing redundant check in vector patterns
    1920;; 2008/03/06 - you can use `...' portably now (thanks to Taylor Campbell)
     
    3132;; thus always results in a compile-time error.
    3233
    33 (define-syntax match-syntax-error
    34   (syntax-rules ()
    35     ((_)
    36      (match-syntax-error "invalid match-syntax-error usage"))))
     34                                  (define-syntax match-syntax-error
     35                                    (syntax-rules ()
     36                                      ((_)
     37                                       (match-syntax-error "invalid match-syntax-error usage")))))
    3738
    3839;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    263264     (match-check-identifier p
    264265       (let ((p v))
    265          (sk ... i))
     266         (if (list? p)
     267             (sk ... i)
     268             fk))
    266269       (let loop ((ls v) (id-ls '()) ...)
    267270         (cond
  • release/3/matchable/matchable.setup

    r9710 r9904  
    11(install-extension 'matchable
    22 '("matchable.scm")
    3  '((version 2.3)
     3 '((version 2.4)
    44   (syntax)))
Note: See TracChangeset for help on using the changeset viewer.