whalesong/examples/js-binding.rkt
2012-03-04 18:24:57 -05:00

11 lines
277 B
Racket

#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/js))
(define js-plus
(js-function (js-eval "function(x, y) { return x + y; }")))
(define js-minus
(js-function (js-eval "function(x, y) { return x - y; }")))
"plus: " (js-plus 3 4)
"minus:" (js-minus 239748 23)