19 lines
383 B
Racket
19 lines
383 B
Racket
#lang racket/base
|
|
|
|
;; Function to get the runtime library.
|
|
|
|
(require racket/contract
|
|
racket/runtime-path
|
|
racket/port)
|
|
|
|
|
|
(provide/contract [get-runtime (-> string?)])
|
|
|
|
(define-runtime-path runtime.js "runtime.js")
|
|
|
|
(define text (call-with-input-file runtime.js
|
|
(lambda (ip)
|
|
(port->string ip))))
|
|
|
|
(define (get-runtime)
|
|
text) |