fix map-with stack comment

diff --git a/library/lists.factor b/library/lists.factor
index 3a1ba30677db9271d4ae6b9fb1ce721c4cdfec5b..4107c8d7eada823928f3cc75ee690bc05da52514 100644 (file)
--- a/library/lists.factor
+++ b/library/lists.factor
@@ -90,7 +90,7 @@ DEFER: tree-contains?
     #! ( X -- Y ) to each element into a new list.
     over [ (each) rot >r map r> swons ] [ drop ] ifte ; inline
 
-: map-with ( obj list quot -- )
+: map-with ( obj list quot -- list )
     #! Push each element of a proper list in turn, and collect
     #! return values of applying a quotation with effect
     #! ( obj elt -- obj ) to each element into a new list.