continuing to quickly prototype this.

js/world/main.rkt

@@ -3,4 +3,4 @@
 (declare-implementation
  #:racket "racket-impl.rkt"
  #:javascript ("js-impl.js")
- #:provided-values ())
+ #:provided-values (make-js-world-event))

js/world/racket-impl.rkt

@@ -1 +1,6 @@
 #lang s-exp "../../lang/base.rkt"
+
+(provide make-js-world-event)
+
+(define (make-js-world-event)
+  (error 'make-js-world-event "Must be run under a JavaScript context."))

js/world/test.rkt

@@ -0,0 +1,16 @@
+#lang planet dyoo/whalesong
+(require (planet dyoo/whalesong/js/world))
+
+(define-values (on-event send-event)
+  (make-js-world-event))
+
+((js-function (js-eval "function(x) { window.sendTheTick = x; }"))
+ send-event)
+
+
+(define (handle-event w v)
+  (add1 w))
+
+(big-bang 0
+          (on-event handle-event)
+          (stop-when (lambda (w) (> w 5))))