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

modules fix

slava 2006-09-12 02:52:45 +00:00
parent 2e89e75c7a
commit dd057c69f1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/modules.factor
View File

@ -61,7 +61,8 @@ C: module ( name files tests -- module )
dup module-name swap 2array modules get push ; dup module-name swap 2array modules get push ;
: remove-module ( name -- ) : remove-module ( name -- )
module [ modules get delete ] when* ; modules get [ first = ] find-with nip
[ modules get delete ] when* ;
: provide ( name files tests -- ) : provide ( name files tests -- )
pick remove-module pick remove-module