compiler.units: changing definitions-changed to use a set.

[factor.git] / basis / help / home / home.factor

diff --git a/basis/help/home/home.factor b/basis/help/home/home.factor
index 0239ba05f705ab24f61ea3859e74608608a47928..f4b7e4603e58f0ca218c433f3117d067a91de393 100644 (file)
--- a/basis/help/home/home.factor
+++ b/basis/help/home/home.factor
@@ -28,7 +28,7 @@ M: object add-recent-where f ;
     drop recent-searches get [ <$link> ] map $list ;
 
 : redisplay-recent-page ( -- )
-    "help.home" >link dup associate
+    HS{ } clone "help.home" >link over adjoin
     notify-definition-observers ;
 
 : expire ( seq -- )
@@ -38,4 +38,4 @@ M: object add-recent-where f ;
 : add-recent ( obj -- )
     add-recent-where dup
     [ get [ adjoin ] [ expire ] bi ] [ 2drop ] if
-    redisplay-recent-page ;
\ No newline at end of file
+    redisplay-recent-page ;