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

compiler.units: simplify remember-class.

db4
John Benediktsson 2015-06-09 11:04:11 -07:00
parent b3aeb94020
commit 77f980881b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/compiler/units/units.factor
View File

@ -33,8 +33,9 @@ PRIVATE>
old-definitions get [ delete ] with each ; old-definitions get [ delete ] with each ;
: remember-class ( class loc -- ) : remember-class ( class loc -- )
[ dup new-definitions get first in? [ dup throw-redefine-error ] when ] dip new-definitions get first2
new-definitions get second (remember-definition) ; [ dupd in? [ dup throw-redefine-error ] when ]
[ (remember-definition) ] bi-curry* bi* ;
: forward-reference? ( word -- ? ) : forward-reference? ( word -- ? )
dup old-definitions get [ in? ] with any? [ dup old-definitions get [ in? ] with any? [