From 18b3ab0d97ee42c9f205a296c6be1f315b0e14da Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 17 Oct 2017 21:21:27 +0100 Subject: [PATCH] Two equations are better than one blob --- racket/syndicate/examples/actor/f-to-c.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/racket/syndicate/examples/actor/f-to-c.rkt b/racket/syndicate/examples/actor/f-to-c.rkt index 4e3f0dd..8cba351 100644 --- a/racket/syndicate/examples/actor/f-to-c.rkt +++ b/racket/syndicate/examples/actor/f-to-c.rkt @@ -40,9 +40,8 @@ (struct set-temperature (unit value) #:prefab) (spawn (versioned-field [C 0] [F 32]) - (begin/dataflow - (F (+ (* (C) 9/5) 32) C) - (C (* (- (F) 32) 5/9) F)) + (begin/dataflow (F (+ (* (C) 9/5) 32) C)) + (begin/dataflow (C (* (- (F) 32) 5/9) F)) (assert (temperature 'C (C))) (assert (temperature 'F (F))) (on (message (set-temperature 'C $v)) (C v))