Urlang wrapper

hello-urlang.rkt

#lang s-exp "urlang.rkt"

(define (hello name)
  (console.log (+ "Hello " name "!")))

(hello "Urlang world")

urlang.rkt

#lang racket/base

(provide
  (except-out (all-from-out racket/base) #%module-begin)
  (rename-out [module-begin #%module-begin])
  load-js)

(define-syntax-rule (module-begin expr ...)
  (#%module-begin
    (provide javascript)
    (require urlang)

    (define javascript (open-output-string))

    (parameterize ([current-urlang-run? #f]
                   [current-urlang-echo? #t]
                   [current-output-port javascript])
      (urlang
        (urmodule module expr ...)))))

(define (load-js urlang-file)
  (get-output-string (dynamic-require urlang-file 'javascript)))