tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / models / combinators / combinators.factor

diff --git a/unmaintained/models/combinators/combinators.factor b/unmaintained/models/combinators/combinators.factor
index 489691061893ed7ecca523348a5e37ac41320021..11e94ed3c68f416c5d989608bc733f1d1908d602 100644 (file)
--- a/unmaintained/models/combinators/combinators.factor
+++ b/unmaintained/models/combinators/combinators.factor
@@ -46,7 +46,7 @@ M: fold-model model-activated drop ;
 TUPLE: updater-model < multi-model values updates ;
 M: updater-model (model-changed) [ tuck updates>> =
    [ [ values>> value>> ] keep set-model ]
-   [ drop ] if ] keep f swap (>>value) ;
+   [ drop ] if ] keep f swap value<< ;
 : updates ( values updates -- model ) [ 2array updater-model <multi-model> ] 2keep
    [ >>values ] [ >>updates ] bi* ;