From 11923c35674de8b2d540b186c4c566b705fc8189 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Tue, 3 Mar 2009 02:51:32 +0000 Subject: [PATCH] add another example with require inside eval for protect-out svn: r13908 --- collects/scribblings/reference/syntax.scrbl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/collects/scribblings/reference/syntax.scrbl b/collects/scribblings/reference/syntax.scrbl index fa5fd7e09d..4548fdc229 100644 --- a/collects/scribblings/reference/syntax.scrbl +++ b/collects/scribblings/reference/syntax.scrbl @@ -843,6 +843,20 @@ follows. (require 'a) foo (weak-eval 'foo) + ] + + Note that @scheme[require] works within eval as well. + @defexamples[#:eval (syntax-eval) + (module a scheme + (provide (protect-out foo)) + (define foo 1)) + (define weak-inspector (make-inspector (current-code-inspector))) + (define (weak-eval x) + (parameterize ([current-code-inspector weak-inspector]) + (eval x))) + (weak-eval '(require 'a)) + foo + (weak-eval 'foo) ]} @specsubform[#:literals (for-meta)