7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
24 lines
576 B
Scheme
24 lines
576 B
Scheme
#lang scheme/unit
|
|
|
|
(require "sig.ss"
|
|
mred/mred-sig
|
|
mzlib/string
|
|
mzlib/list)
|
|
(import)
|
|
(export (rename framework:version^
|
|
[-version version]))
|
|
|
|
(define specs null)
|
|
|
|
(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)))
|