This is the mail archive of the guile@cygnus.com mailing list for the guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: a local eval


There is a procedure local-eval that works as intended. It is also
convenient to have a procedure that delivers the environment like:

(define the-environment
  (procedure->syntax
   (lambda(x env) env)))

(let ((foo 4711))
  (display "global:")
  (display (eval 'foo))
  (newline)
  (display "local:")
  (display (local-eval 'foo (the-environment)))
  (newline)
  )

Result from eval:
global:3
local:4711

	Best regards
	Roland Orre