(xitomatl sxml-match) no longer working

[GoogleCodeExporter]

I believe this worked previously.  It works on Ikarus.  I checked all the
calls to map in xitomatl/sxml-match/sxml-match.ss and they have the correct
number of arguments.  With Ypsilon r402 and Xitomatl r157, an expression
from the test program (made by the sxml-match author):

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

> (sxml-match '(e 3 4 5 6 7)
    ((e ,i ... 6 7)
     `("start" ,`(wrap ,i) ... "end"))
    (,otherwise #f))

error in map: required at least 2, but 1 argument given

irritants:
  (#<closure 0xb591ff60>)

  #<condition
    &assertion (&violation &serious)
    &who: map
    &message: required at least 2, but 1 argument given
    &irritants: ((#<closure 0xb591ff60>))
   >

backtrace:
  0  (map (lambda () (list 'wrap i)))
  ..."/dev/stdin" line 2
  1  (cfun '(e 3 4 5 6 7))
  ..."/dev/stdin" line 1
> 

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

[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:59

[GoogleCodeExporter]

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

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

• Changed state: Fixed