make events display like they used to

svn: r7349

collects/frtime/frp-snip.ss

@@ -170,6 +170,8 @@
          (make-object string-snip% "<undefined>")
          )
          ]
+      [(event? beh)
+       (make-object value-snip% beh)]
       [(or (behavior? beh) (any-nested-reactivity? beh))
        (make-object dynamic-snip% (raise-reactivity beh) super-render-fun)]
       [(signal? beh)

collects/frtime/mzscheme-core.ss

@@ -150,7 +150,8 @@
                result)))]
       ; won't work in the presence of super structs or immutable fields
       [(struct? obj)
-       (let*-values ([(info skipped) (struct-info obj)]
+       obj
+       #;(let*-values ([(info skipped) (struct-info obj)]
                      [(name init-k auto-k acc mut! immut sup skipped?) (struct-type-info info)]
                      [(ctor) (struct-type-make-constructor info)]
                      [(indices) (build-list init-k identity)]