21 lines
544 B
Racket
21 lines
544 B
Racket
#lang s-exp "../lang/js/js.rkt"
|
|
|
|
(declare-implementation
|
|
#:racket "racket-impl.rkt"
|
|
#:javascript ("js-impl.js")
|
|
#:provided-values (alert
|
|
body
|
|
call-method
|
|
$
|
|
|
|
get-attr
|
|
set-attr!
|
|
|
|
js-string?
|
|
string->js-string
|
|
js-string->string
|
|
|
|
viewport-width
|
|
viewport-height
|
|
in-javascript-context?
|
|
)) |