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

ascii only + reformat a little

Browse Source 
svn: r4790

original commit: 5044dc49a5b91b4e8748177a4eaf125fcb2c67b2
This commit is contained in:
Eli Barzilay 2006-11-06 08:06:16 +00:00
parent f57b4fd681
commit a463d8eedd
1 changed files with 14 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/framework/private/version.ss
View File

@ -1,9 +1,9 @@
(module version mzscheme (module version mzscheme
(require (lib "unitsig.ss") (require (lib "unitsig.ss")
"sig.ss" "sig.ss"
(lib "mred-sig.ss" "mred") (lib "mred-sig.ss" "mred")
(lib "string.ss") (lib "string.ss")
(lib "list.ss")) (lib "list.ss"))
(provide version@) (provide version@)
@ -14,17 +14,14 @@
(define specs null) (define specs null)
(define -version (define (-version)
(λ () (foldr (lambda (entry sofar)
(foldr (let ([sep (first entry)]
(λ (entry sofar) [num (second entry)])
(let ([sep (first entry)] (string-append sofar sep num)))
[num (second entry)]) (version)
(string-append sofar sep num))) specs))
(version)
specs)))
(define add-spec (define (add-spec sep num)
(λ (sep num) (set! specs (cons (list (expr->string sep) (format "~a" num))
(set! specs (cons (list (expr->string sep) (format "~a" num)) specs))))))
specs)))))))