mit-scheme-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Matt Birkholz
Subject: Re: [MIT-Scheme-devel] tied in knots with environments
Date: Sat, 29 Jan 2011 10:11:56 -0700

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]