28 lines
599 B
Scheme
28 lines
599 B
Scheme
(unit/sig mred:version^
|
|
(import [wx : wx^]
|
|
[mzlib:function : mzlib:function^]
|
|
[mzlib:string^ : mzlib:string^])
|
|
|
|
(rename [-version version])
|
|
|
|
(mred:debug:printf 'invoke "mred:version@")
|
|
|
|
(define specs null)
|
|
|
|
(define -version
|
|
(lambda ()
|
|
(mzlib:functionfoldr
|
|
(lambda (entry sofar)
|
|
(match entry
|
|
[(sep num) (string-append sofar sep num)]))
|
|
(version)
|
|
specs)))
|
|
|
|
(define add-spec
|
|
(lambda (sep num)
|
|
(set! specs (cons (list (mzlib:string:expr->string sep)
|
|
(mzlib:string:expr->string num))
|
|
specs))))
|
|
|
|
'(add-version-spec ': 5))
|