19 lines
545 B
Racket
19 lines
545 B
Racket
#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 f)
|
|
(error 'stop-when "Please run in JavaScript context."))
|
|
|
|
(define on-tick
|
|
(case-lambda [(f)
|
|
(error 'on-tick "Please run in JavaScript context.")]
|
|
[(f delay)
|
|
(error 'on-tick "Please run in JavaScript context.")]))
|