#lang scheme/base

(require scheme/unit "../teachpacks/world.ss")

(define-values/invoke-unit teachpack@
  (import) (export teachpack^))

(define (on-tick-event-value tock) (on-tick-event tock))
(define (on-key-event-value press) (on-key-event press))
(define (on-redraw-value render) (on-redraw render))
(define (stop-when-value done) (stop-when done))
(define (on-mouse-event-value click) (on-mouse-event click))
(define (on-receive-event-value respond) (on-receive-event respond))
(define (register-value host name) (register host name))
(define (universe-value init proc) (universe init proc))
(define (big-bang-value w h f i) (big-bang w h f i))

(provide (except-out (all-defined-out)
                     on-tick-event on-tick-event-value
                     on-key-event on-key-event-value
                     on-redraw on-redraw-value
                     stop-when stop-when-value
                     on-mouse-event on-mouse-event-value
                     on-receive-event on-receive-event-value
                     register register-value
                     universe universe-value
                     big-bang big-bang-value)
         (rename-out [on-tick-event-value on-tick-event]
                     [on-key-event-value on-key-event]
                     [on-redraw-value on-redraw]
                     [stop-when-value stop-when]
                     [on-mouse-event-value on-mouse-event]
                     [on-receive-event-value on-receive-event]
                     [register-value register]
                     [universe-value universe]
                     [big-bang-value big-bang]))