(xitomatl match) not working

[GoogleCodeExporter]

It works on Ikarus.  I believe the bug is triggered by the code at lines
229-233 of xitomatl/match.sls.  With Ypsilon r402 and Xitomatl r157:

Ypsilon 0.9.6-trunk/r402 Copyright (c) 2009 Y.Fujita, LittleWing Company
Limited.
> (import (xitomatl match))

> (match 'foo ((:symbol "\\w+") 'ok))

error in #<syntax make-matcher>: invalid syntax
  >  (make-matcher M-irregex (irregex "\\w+" 'single-line 'fast) '#() (vector))
  ..."/dev/stdin"

  #<condition
    &syntax (&violation &serious)
     form: (#<syntax make-matcher> #<syntax M-irregex> ...)
     subform: #f
    &who: #<syntax make-matcher>
    &message: invalid syntax
   >

expanding:
  >  (match 'foo ((:symbol "\\w+") 'ok))
  ..."/dev/stdin" line 1

backtrace:
  0  (with-syntax ((((matcher fender-proc ... true-expr-proc) ...) (map
(lambda (c ...) ...) ...) ...) ...) ...)
  ..."/home/d/zone/scheme/xitomatl/match.sls" line 319
  1  (with-syntax ((((matcher fender-proc ... true-expr-proc) ...) (map
(lambda (c ...) ...) ...) ...) ...) ...)
  ..."/home/d/zone/scheme/xitomatl/match.sls" line 319
  2  (with-syntax ((((matcher fender-proc ... true-expr-proc) ...) (map
(lambda (c ...) ...) ...) ...) ...) ...)
  ..."/home/d/zone/scheme/xitomatl/match.sls" line 319
  3  (syntax-case in-stx () ((_ expr clause0 clause ...) (with-syntax
((((matcher ...) ...) ...) ...) ...) ...) ...)
  ..."/home/d/zone/scheme/xitomatl/match.sls" line 317
> 

Original issue reported on code.google.com by derick.e...@gmail.com on 6 Mar 2009 at 9:44

[GoogleCodeExporter]

Thank you for your bug report!
I have fixed bugs in revision 403.
Please try. Thank you!
-- fujita

Original comment by y.fujita...@gmail.com on 7 Mar 2009 at 3:25

• Changed state: Started

[GoogleCodeExporter]

It's fixed.

Original comment by derick.e...@gmail.com on 7 Mar 2009 at 5:53

[GoogleCodeExporter]

Thank you for your reply. I close this issue. :)
-- fujita

Original comment by y.fujita...@gmail.com on 7 Mar 2009 at 1:46

• Changed state: Fixed