[plt-scheme] match and xml structures

David Van Horn wrote:
>   For list-related administrative tasks:
>   http://list.cs.brown.edu/mailman/listinfo/plt-scheme
> 
> There seems to be a bug with match and xml structures (these same errors occur
> with html structs). 
> 
>>mzscheme -l match.ss -L xml.ss xml
> Welcome to MzScheme version 204.8, Copyright (c) 1995-2003 PLT
>>(match (make-comment "test")
>     (($ comment text) text)
>     (_ #f))
> STDIN::34: match: not enough fields for structure in pattern in: (struct
> comment (text))
> 
>>(procedure-arity make-comment) 
> 1
>
> This is with the latest CVS sources.
> 
> -d

I tried looking at this with errortrace, but didn't get very far.  An 
error occurs while loading the match library when errortrace is turned on.

Any ideas?

-d


 > mzscheme -M errortrace -M xml -l match.ss
Welcome to MzScheme version 204.8, Copyright (c) 1995-2003 PLT
errortrace: unrecognized expression form at top-level: (module cm-ctime 
mzscheme (#%plain-module-begin (require-for-syntax mzscheme) (provide 
current-ex...
/usr/local/collects/mzlib/cm-accomplice.ss:8:17: 
(dynamic-require-for-syntax (quote (lib "cm-ctime.ss" "mzlib" 
"private")) (quote current-external...
/usr/local/collects/mzlib/cm-accomplice.ss:8:4: (let-values (((param) 
(dynamic-require-for-syntax (quote (lib "cm-ctime.ss" "mzlib" 
"private")) (...
/usr/local/collects/mzlib/include.ss:19:9: (let-values (((c-file) 
(resolve-path-spec g718 g717 g715 (quote-syntax build-path))) ((ctx) 
g716)...
/usr/local/collects/mzlib/private/stxset.ss:31:48: (local-expand defn 
expand-context (kernel-form-identifier-list (quote-syntax here)))
/usr/local/collects/mzlib/private/stxset.ss:31:36: (let-values (((defn) 
(local-expand defn expand-context (kernel-form-identifier-list 
(quote-syntax...
/usr/local/collects/mzlib/private/stxset.ss:29:33: (map (lambda (defn) 
(let-values (((defn) (local-expand defn expand-context 
(kernel-form-identifie...
/usr/local/collects/mzlib/private/stxset.ss:27:32: (apply append (map 
(lambda (defn) (let-values (((defn) (local-expand defn expand-context 
(kernel-...
/usr/local/collects/mzlib/private/stxset.ss:26:16: (let-values (((defns) 
((letrec-values (((loop) (lambda (defns) (apply append (map (lambda 
(defn) ...