Changeset 12973 in project


Ignore:
Timestamp:
01/10/09 20:00:12 (12 years ago)
Author:
Alex Shinn
Message:

Fixing bug in match-check-identifier case for syntax-case.

Location:
release/3/matchable
Files:
3 edited

Legend:

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

    r7094 r12973  
    6767            *fail* (format-percent *fail* total))))
    6868
     69(define (run-assert name thunk)
     70  (run-test name (lambda () (and (thunk) #t)) #t eq?
     71            '("(PASS)" name)
     72            '("(FAIL)" name ": expected a true value but got #f")))
     73
    6974(define-syntax test-assert
    7075  (syntax-rules ()
     
    8186    ((_ name expr value eq) (run-equal name (lambda () expr) value eq))
    8287    ((_ name expr value) (run-equal name (lambda () expr) value equal?))
    83     ((_ expr value) (run-assert 'expr (lambda () expr) value equal?))))
     88    ((_ expr value) (run-equal 'expr (lambda () expr) value equal?))))
    8489
    8590;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    221226            '(2 3))
    222227
     228(test-assert "sjamaan uri"
     229  (match '(#\% 1 2) ((#\% h1 h2) #t) (else #f)))
     230
    223231(test-end "match")
    224232
  • release/3/matchable/matchable.scm

    r10057 r12973  
    1616;; hit.
    1717
     18;; 2009/01/11 - typo bug in match-check-identifier for syntax-case
    1819;; 2008/03/22 - superfluous right-paren in "match-syntax-error" def
    1920;; 2008/03/20 - fixing bug where (a ...) matched non-lists
     
    616617    (syntax-case stx ()
    617618      ((_ x sk fk)
    618        (if (identifier? (syntax q))
     619       (if (identifier? (syntax x))
    619620           (syntax sk)
    620621           (syntax fk))))))
  • release/3/matchable/matchable.setup

    r10057 r12973  
    11(install-extension 'matchable
    22 '("matchable.scm")
    3  '((version "2.4.1")
     3 '((version "2.4.2")
    44   (syntax)))
Note: See TracChangeset for help on using the changeset viewer.