28 lines
713 B
Scheme
28 lines
713 B
Scheme
(module version mzscheme
|
|
(require (lib "unitsig.ss")
|
|
"sig.ss"
|
|
(lib "mred-sig.ss" "mred")
|
|
(lib "string.ss")
|
|
(lib "list.ss"))
|
|
|
|
(provide version@)
|
|
|
|
(define version@
|
|
(unit/sig framework:version^
|
|
(import)
|
|
(rename [-version version])
|
|
|
|
(define specs null)
|
|
|
|
(define (-version)
|
|
(foldr (lambda (entry sofar)
|
|
(let ([sep (first entry)]
|
|
[num (second entry)])
|
|
(string-append sofar sep num)))
|
|
(version)
|
|
specs))
|
|
|
|
(define (add-spec sep num)
|
|
(set! specs (cons (list (expr->string sep) (format "~a" num))
|
|
specs))))))
|