From a463d8eedd1785745746bb425c28a9f1768d58c9 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 6 Nov 2006 08:06:16 +0000 Subject: [PATCH] ascii only + reformat a little svn: r4790 original commit: 5044dc49a5b91b4e8748177a4eaf125fcb2c67b2 --- collects/framework/private/version.ss | 31 ++++++++++++--------------- 1 file changed, 14 insertions(+), 17 deletions(-) diff --git a/collects/framework/private/version.ss b/collects/framework/private/version.ss index f0bdcb2d..0e65c977 100644 --- a/collects/framework/private/version.ss +++ b/collects/framework/private/version.ss @@ -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))))))