suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The patchlevel is added (as a "pN" suffix) to DrScheme version

Browse Source 
svn: r846
This commit is contained in:
Eli Barzilay 2005-09-13 01:03:30 +00:00
parent 957943f162
commit 7d88a48fb9
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/version/info.ss
View File

@ -1,3 +1,5 @@
(module info (lib "infotab.ss" "setup") (module info (lib "infotab.ss" "setup")
(define name "Version") (define name "Version")
(define doc.txt "doc.txt")) (define doc.txt "doc.txt")
(define tools (list "tool.ss"))
(define tool-names (list "Version")))

13
collects/version/tool.ss Normal file
View File

@ -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)))))