modules fix

2006-09-12 02:52:45 +00:00 · 2006-09-12 02:52:45 +00:00 · dd057c69f1
parent 2e89e75c7a
commit dd057c69f1
1 changed files with 2 additions and 1 deletions
--- a/library/modules.factor
+++ b/library/modules.factor
@ -61,7 +61,8 @@ C: module ( name files tests -- module )
    dup module-name swap 2array modules get push ;

 : remove-module ( name -- )
-    module [ modules get delete ] when* ;
+    modules get [ first = ] find-with nip
+    [ modules get delete ] when* ;

 : provide ( name files tests -- )
    pick remove-module