steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
Doug Coleman 2016-06-28 00:23:30 -07:00
parent 9324457dbb
commit 647d5fffef
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/vocabs/parser/parser.factor
View File

@ -259,8 +259,8 @@ M: manifest definitions-changed
PRIVATE> PRIVATE>
: with-manifest ( quot -- ) : (with-manifest) ( quot manifest -- )
<manifest> manifest [ manifest [
[ call ] [ [ call ] [
[ manifest get add-definition-observer call ] [ manifest get add-definition-observer call ]
[ manifest get remove-definition-observer ] [ manifest get remove-definition-observer ]
@ -268,3 +268,9 @@ PRIVATE>
cleanup cleanup
] if-bootstrapping ] if-bootstrapping
] with-variable ; inline ] with-variable ; inline
: with-manifest ( quot -- )
<manifest> (with-manifest) ; inline
: with-current-manifest ( quot -- )
manifest get (with-manifest) ; inline