14 lines
400 B
Scheme
14 lines
400 B
Scheme
(module tool mzscheme
|
|
(require (lib "tool.ss" "drscheme")
|
|
(lib "unitsig.ss")
|
|
(lib "framework.ss" "framework"))
|
|
(require "patchlevel.ss")
|
|
(provide tool@)
|
|
(define tool@
|
|
(unit/sig drscheme:tool-exports^
|
|
(import drscheme:tool^)
|
|
(define (phase1) (void))
|
|
(define (phase2) (void))
|
|
(when (> patchlevel 0)
|
|
(version:add-spec 'p patchlevel)))))
|