24 lines
590 B
Racket
24 lines
590 B
Racket
#lang racket/base
|
|
|
|
(require
|
|
scribble/base
|
|
scribble/manual
|
|
racket/sandbox
|
|
scribble/eval)
|
|
(provide (all-defined-out))
|
|
|
|
(define (todo . ls)
|
|
(apply margin-note* "TODO: " ls))
|
|
|
|
(define (gtech . x)
|
|
(apply tech x #:doc '(lib "scribblings/guide/guide.scrbl")))
|
|
|
|
(define (curnel-sandbox init-string)
|
|
(parameterize ([sandbox-output 'string]
|
|
[sandbox-error-output 'string]
|
|
;; TODO: Probs a bad idea
|
|
[sandbox-eval-limits #f]
|
|
[sandbox-memory-limit #f])
|
|
(make-module-evaluator
|
|
(format "#lang cur~n~a" init-string))))
|