Fix upside-down spawn translations

2017-02-23 22:22:43 -05:00 · 2017-02-23 22:22:43 -05:00 · 783d132f25
parent 99ccc12fee
commit 783d132f25
1 changed files with 1 additions and 1 deletions
--- a/racket/syndicate/upside-down.rkt
+++ b/racket/syndicate/upside-down.rkt
@ -54,7 +54,7 @@ this facility for testing.
    [(patch added removed)
     (patch (turn-trie-upside-down added)
            (turn-trie-upside-down removed))]
-    [(? actor? a) a]))
+    [(? actor? a) (spawn-upside-down a)]))

 ;; Event -> Event
 (define (turn-event-rightside-up e)