From 7d88a48fb9607afbf114a89d51362f9b2a01e9e8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 13 Sep 2005 01:03:30 +0000 Subject: [PATCH] The patchlevel is added (as a "pN" suffix) to DrScheme version svn: r846 --- collects/version/info.ss | 4 +++- collects/version/tool.ss | 13 +++++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 collects/version/tool.ss diff --git a/collects/version/info.ss b/collects/version/info.ss index 223173d643..cb5fd32318 100644 --- a/collects/version/info.ss +++ b/collects/version/info.ss @@ -1,3 +1,5 @@ (module info (lib "infotab.ss" "setup") (define name "Version") - (define doc.txt "doc.txt")) + (define doc.txt "doc.txt") + (define tools (list "tool.ss")) + (define tool-names (list "Version"))) diff --git a/collects/version/tool.ss b/collects/version/tool.ss new file mode 100644 index 0000000000..016a29183a --- /dev/null +++ b/collects/version/tool.ss @@ -0,0 +1,13 @@ +(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)))))