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

[Robin Lee Powell]

On Sat, Mar 15, 2008 at 05:38:51PM +0100, Felix Winkelmann wrote:
> From: Robin Lee Powell <address@hidden>
> 
> csi's "-e" is implemented by wrapping the forms into a "(begin
> ...)". Due to the way toplevel expressions are macroexpanded (and
> details that you don't want to know about), "(use syntax-case)"
> will override the main macro-expansion mechanism starting with the
> next toplevel expression. The begin-form is one toplevel
> expression. What could possibly work is use another "-e" option to
> run the "(hart ...)" expression.

First of all, that was just to simplify; the actual code was being
run with "csi [file]".

Secondly, no help:

$ csi -e "(use hart)" -e "(require-extension syntax-case)" -e "(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)  <--

$ csi -e "(require-extension syntax-case)" -e "(use hart)" -e "(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)       <--

-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/