From 647d5fffef9a48fb6a1fcd6b5e12353100df80f0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 28 Jun 2016 00:23:30 -0700
Subject: [PATCH] vocabs.parser: add eval-in-current( ) word for funktors.

---
 core/vocabs/parser/parser.factor | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 7fa573e65c..acc29e2810 100644
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -259,8 +259,8 @@ 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 ]
@@ -268,3 +268,9 @@ PRIVATE>
             cleanup
         ] if-bootstrapping
     ] with-variable ; inline
+
+: with-manifest ( quot -- )
+    <manifest> (with-manifest) ; inline
+
+: with-current-manifest ( quot -- )
+    manifest get (with-manifest) ; inline