[Chicken-users] hart and syntax-case won't play nice. :(

[Robin Lee Powell]

$ csi -e "(use hart) (hart (html))"
<html/>

$ csi -e "(use syntax-case) (use hart) (hart (html))"
Error: invalid syntax: hart

        Call history:

        <eval>          (list (quote #(syntax-object (k . args) ((top) 
#(ribcage #(_ name transformer) #((top) (top) (top)) #(...
        <eval>          (list (quote #(syntax-object datum->syntax-object 
((top) #(ribcage #(_ name transformer) #((top) (top...
        <eval>          (cons (quote #(syntax-object apply ((top) #(ribcage #(_ 
name transformer) #((top) (top) (top)) #("i"...
        <eval>          (cons transformer.479 (quote #(syntax-object 
((syntax-object->datum (syntax args))) ((top) #(ribcage......
        <eval>          ((lambda (tmp.1322) ((lambda (tmp.1323) (if tmp.1323 
(##sys#apply (lambda (k.1324 args.1325) (datum-......
        <eval>          ((lambda (tmp.1323) (if tmp.1323 (##sys#apply (lambda 
(k.1324 args.1325) (datum->syntax-object k.132......
        <eval>          ($syntax-dispatch tmp.1322 (quote (any . any)))
        <eval>          (##syncase#syntax-error tmp.1322)       <--

$ csi -e "(use hart) (use syntax-case) (hart (html))"
Error: unbound variable: html

        Call history:

        <syntax>                (##sys#void)
        <eval>          (##sys#void)
        <syntax>                (##core#undefined)
        <syntax>                (##core#undefined)
        <syntax>                (hart (html))
        <syntax>                (html)
        <eval>          (hart (html))
        <eval>          (html)  <--

All I want out of syntax-case is syntax-rules; can I get that
without doing whatever is breaking hart?

-Robin

-- 
Lojban Reason #17: http://en.wikipedia.org/wiki/Buffalo_buffalo
Proud Supporter of the Singularity Institute - http://singinst.org/
http://www.digitalkingdom.org/~rlpowell/ *** http://www.lojban.org/