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

2016-06-28 00:23:30 -07:00 · 2016-06-28 00:23:30 -07:00 · 647d5fffef
parent 9324457dbb
commit 647d5fffef
1 changed files with 8 additions and 2 deletions
--- 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