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

effects.parser: Fix word -> current-word for definition errors.

db4
Doug Coleman 2013-04-14 13:32:15 -07:00
parent 6e2291886d
commit bd3762502f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/effects/parser/parser.factor
View File

@ -57,7 +57,7 @@ SYMBOL: in-definition
ERROR: can't-nest-definitions word ; ERROR: can't-nest-definitions word ;
: check-in-definition ( -- ) : check-in-definition ( -- )
in-definition get [ word can't-nest-definitions ] when ; in-definition get [ current-word can't-nest-definitions ] when ;
: with-definition ( quot -- ) : with-definition ( quot -- )
[ check-in-definition t in-definition ] dip with-variable ; inline [ check-in-definition t in-definition ] dip with-variable ; inline