That is not one expression, but several. Wrap it in a (begin ...) and
it should work. I.e.
(display (port->string (car (process (format "racket -e \" ~a \" "
"
(begin
(require mzlib/defmacro)
(define-macro (my-when
test . body)`(if ,test (begin ,@body) '() ))
(my-when #t '(5 6 7))
"
))))))
HTH,
N.
On Tue, Sep 13, 2011 at 12:22 PM, Niitsuma Hirotaka
<hirotaka.niits...@gmail.com> wrote:
>> You could try something like this:
>> #lang racket
>> (require racket/system)
>> (display (port->string (car (process (format "racket -e '~a' " '(+ 2 3))))))
>
> That does not work in the following case
>
> (display (port->string (car (process (format "racket -e \" ~a \" "
> "
> (require mzlib/defmacro)
> (define-macro (my-when
> test . body)`(if ,test (begin ,@body) '() ))
> (my-when #t '(5 6 7))
> "
> )))))
> _________________________________________________
> For list-related administrative tasks:
> http://lists.racket-lang.org/listinfo/users
>
_________________________________________________
For list-related administrative tasks:
http://lists.racket-lang.org/listinfo/users
