#lang scheme/base

;; Creates a Scheme namespace object containing the PIC18 compiler and
;; basic infrastructure (a 'project').

(require
 scheme/runtime-path
 "../tools.ss"
 "manager.ss")

(provide
 (all-from-out "manager.ss")
 (all-defined-out))

(define-runtime-path pic18-module "../pic18.ss")
(define (make-pic18)
  (let ((ns (make-prj-namespace (list pic18-module))))
    (parameterize
        ((current-namespace ns))
      (eval '(init-namespace))
      ns)))

(make-prj make-pic18)