15 lines
466 B
Racket
15 lines
466 B
Racket
#lang racket/base
|
|
(require racket/runtime-path)
|
|
|
|
(define-runtime-module-path plai plai)
|
|
(define-runtime-module-path plai-reader plai/lang/reader)
|
|
(define-runtime-module-path runtime racket/runtime-config)
|
|
|
|
(parameterize ([read-accept-reader #t])
|
|
(namespace-require 'racket/base)
|
|
(eval (read (open-input-string "#lang plai 10"))))
|
|
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
(lambda () (printf "This is 19.\n"))
|
|
#:exists 'append)
|