From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 28 Jun 2016 07:23:30 +0000 (-0700)
Subject: vocabs.parser: add eval-in-current( ) word for funktors.
X-Git-Tag: 0.99~2306
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=44938db7e7f94f4a1c133af25e40eb0a64bbb5a8

vocabs.parser: add eval-in-current( ) word for funktors.
---

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index a1bd8a97dc..63ca0ef78e 100644
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -284,11 +284,17 @@ M: manifest definitions-changed
 
 PRIVATE>
 
-: with-manifest ( quot -- )
-    <manifest> manifest [
+: (with-manifest) ( quot manifest -- )
+    manifest [
         [ call ] [
             [ manifest get add-definition-observer call ]
             [ manifest get remove-definition-observer ]
             finally
         ] if-bootstrapping
     ] with-variable ; inline
+
+: with-manifest ( quot -- )
+    <manifest> (with-manifest) ; inline
+
+: with-current-manifest ( quot -- )
+    manifest get (with-manifest) ; inline