typetest.rkt

#lang typed/racket/gui

(require/typed
 racket/sandbox
 [make-evaluator
  (->*
   (Symbol)
   (#:requires (List String))
   (-> String Any))])

;(: make-kicad-mod-evaluator (-> String (-> String (U Any (Futureof Void)))))
(define (make-kicad-mod-evaluator name)
  (let ([file-path (~a "kicad_mod/" name ".rkt")])
  (make-evaluator
    'racket/base
    #:requires `(,file-path))))

(: eval-kicad_mod/draw (-> String (Futureof Void)))
(define eval-kicad_mod/draw
  (make-kicad-mod-evaluator "draw"))