Re: [MIT-Scheme-devel] tied in knots with environments

[Matt Birkholz]

> From: David Gray <address@hidden>
> Date: Fri, 28 Jan 2011 14:22:11 +0200
> 
> I got that to work now. I was missing that info on
> (->environment '(win32)). The only other pain was...

Ouch.  Did you say...

        (let ((xs (string-append "x = " (list->python-string x))))
          (eval (with-input-from-string
                    (string-append "(prun \"" xs "\")")
                  read)
                (-> environment '(win32))))

?!  That IS painful.  Unless that is the point, you can skip the pain
and say...

        (eval '(plot '(1 2 3) '(4 5 6))
              (->environment '(win32)))

or, with 50% less sugar,

        (eval '(plot (quote (1 2 3)) (quote (4 5 6)))
              (->environment '(win32)))