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