...
original commit: 6ba27412f2fca393f93cc643faba32a4d48571c1
This commit is contained in:
parent
6390931c40
commit
b1614ca557
|
@ -1,14 +1,15 @@
|
|||
(module version mzscheme
|
||||
(require (lib "unitsig.ss")
|
||||
"sig"
|
||||
(lib "mred-sig.ss" "mred"))
|
||||
(lib "mred-sig.ss" "mred")
|
||||
(lib "string.ss")
|
||||
(lib "list.ss"))
|
||||
|
||||
(provide version@)
|
||||
|
||||
(define version@
|
||||
(unit/sig framework:version^
|
||||
(import [mzlib:string : mzlib:string^]
|
||||
[mzlib:function : mzlib:function^])
|
||||
(import)
|
||||
|
||||
(rename [-version version])
|
||||
|
||||
|
@ -16,7 +17,7 @@
|
|||
|
||||
(define -version
|
||||
(lambda ()
|
||||
(mzlib:function:foldr
|
||||
(foldr
|
||||
(lambda (entry sofar)
|
||||
(match entry
|
||||
[(sep num) (string-append sofar sep num)]))
|
||||
|
@ -25,6 +26,5 @@
|
|||
|
||||
(define add-spec
|
||||
(lambda (sep num)
|
||||
(set! specs (cons (list (mzlib:string:expr->string sep)
|
||||
(mzlib:string:expr->string num))
|
||||
(set! specs (cons (list (expr->string sep) (expr->string num))
|
||||
specs)))))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user