#lang scheme (require scheme/runtime-path "../sandbox.ss") (define-runtime-path main.ss "../main.ss") (define (evaluator) (make-scribble-evaluator 'scheme #:requires (list main.ss))) (provide evaluator)