X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmonads%2Fmonads.factor;fp=extra%2Fmonads%2Fmonads.factor;h=19ac7f8c076eafd12105172c1e020aa300a79d88;hp=485e5431605af1b6ab7c9724c969eed5972cbe1c;hb=9a8b1f8d8e66e69873601f7e1eb400f53ea136a0;hpb=17a0a6e1a4a67ee7122965abb2fea86d14e6516c

diff --git a/extra/monads/monads.factor b/extra/monads/monads.factor
index 485e543160..19ac7f8c07 100644
--- a/extra/monads/monads.factor
+++ b/extra/monads/monads.factor
@@ -188,7 +188,7 @@ M: writer-monad fail   "Fail" throw ;
 
 : run-writer ( writer -- value log ) [ value>> ] [ log>> ] bi ;
 
-M: writer >>= '[ [ _ run-writer ] dip '[ @ run-writer ] dip append <writer> ] ;
+M: writer >>= '[ [ _ run-writer ] dip '[ @ run-writer ] dip prepend <writer> ] ;
 
 : pass ( writer -- writer' ) run-writer [ first2 ] dip swap call( x -- y ) <writer> ;
 : listen ( writer -- writer' ) run-writer [ 2array ] keep <writer> ;