Two equations are better than one blob

2017-10-17 21:21:27 +01:00 · 2017-10-17 21:21:27 +01:00 · 18b3ab0d97
parent fc0e900485
commit 18b3ab0d97
1 changed files with 2 additions and 3 deletions
--- 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))