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

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

@ -14,17 +14,14 @@
(define specs null) (define specs null)
(define -version (define (-version)
(λ () (foldr (lambda (entry sofar)
(foldr
(λ (entry sofar)
(let ([sep (first entry)] (let ([sep (first entry)]
[num (second entry)]) [num (second entry)])
(string-append sofar sep num))) (string-append sofar sep num)))
(version) (version)
specs))) 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))))))