original commit: 6ba27412f2fca393f93cc643faba32a4d48571c1
This commit is contained in:
Robby Findler 2001-02-25 05:14:30 +00:00
parent 6390931c40
commit b1614ca557

View File

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