Permit ly:parser-clone to receive an environment

[lilypond.git] / lily / parse-scm.cc

diff --git a/lily/parse-scm.cc b/lily/parse-scm.cc
index f5092675b3cc124fc730f7e90f00861dfea44b62..0905a8b17ec5fd5320578b973d7796640a36ef56 100644 (file)
--- a/lily/parse-scm.cc
+++ b/lily/parse-scm.cc
@@ -55,7 +55,9 @@ internal_ly_parse_scm (Parse_start *ps)
   /* Read expression from port.  */
   if (!SCM_EOF_OBJECT_P (form))
     {
-      if (ps->safe_)
+      if (ps->parser_ && !SCM_UNBNDP (ps->parser_->local_environment_))
+       answer = scm_local_eval (form, ps->parser_->local_environment_);
+      else if (ps->safe_)
         {
           static SCM module = SCM_BOOL_F;
           if (module == SCM_BOOL_F)