#lang scheme

(require scheme/runtime-path scheme/sandbox "../sandbox.ss")

(define-runtime-path main.ss "../main.ss")

(define shared-specs
  (make-sandbox-namespace-specs make-base-namespace 'scheme main.ss))

(define (evaluator)
  (parameterize ([sandbox-namespace-specs shared-specs])
    (make-scribble-evaluator 'scheme #:requires (list main.ss))))

(provide evaluator)