continuing to mock up skeleton code

web-world/impl.rkt

@@ -0,0 +1,8 @@
+#lang s-exp "../lang/js/js.rkt"
+
+(declare-implementation
+ #:racket "racket-impl.rkt"
+ #:javascript ("js-impl.js")
+ #:provided-values (big-bang
+                    initial-view
+                    stop-when))

web-world/main.rkt

@@ -1 +1,4 @@
 #lang s-exp "../lang/base.rkt"
+
+(require "impl.rkt")
+(provide (all-from-out "impl.rkt"))

web-world/racket-impl.rkt

@@ -0,0 +1,12 @@
+#lang racket/base
+
+(provide big-bang initial-view stop-when)
+
+(define (big-bang world . handlers)
+  (error 'big-bang "Please run in JavaScript context."))
+
+(define (initial-view a-view-or-resource)
+  (error 'initial-view "Please run in JavaScript context."))
+
+(define (stop-when a-view-or-resource)
+  (error 'stop-when "Please run in JavaScript context."))