From 36b4a01e74d28d754e53dd28d2005d900288aecf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 19 Nov 1998 17:23:42 +0000 Subject: [PATCH] ... original commit: a41eac2b5830d035cb7ba1b6ea346f729361b065 --- collects/framework/frameworks.ss | 7 ++++++- collects/framework/keys.ss | 1 + 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss index 2910bff2..7ba14e35 100644 --- a/collects/framework/frameworks.ss +++ b/collects/framework/frameworks.ss @@ -1,11 +1,14 @@ (require-library "refer.ss") (require-library "cores.ss") +(require-library "dates.ss") (require-library "match.ss") (require-library "dates.ss") (require-library "functios.ss") (require-library "macro.ss") (require-relative-library "macro.ss") +(require-relative-library "stsig.ss") + (define-signature framework:version^ (add-spec version)) @@ -200,6 +203,7 @@ (define-signature framework:keymap^ (set-keymap-error-handler set-keymap-implied-shifts + get-shifted-key-list send-map-function-meta make-meta-prefix-list @@ -242,7 +246,8 @@ (define-signature framework:main^ ()) (define-signature framework^ - ([unit application : framework:application^] + ([unit test : framework:test^] + [unit application : framework:application^] [unit version : framework:version^] [unit exn : framework:exn^] [unit exit : framework:exit^] diff --git a/collects/framework/keys.ss b/collects/framework/keys.ss index 7f7452aa..4e798af6 100644 --- a/collects/framework/keys.ss +++ b/collects/framework/keys.ss @@ -15,6 +15,7 @@ '("?" ":" "~" "\"" "|" "<" ">" "{" "}" "[" "]" "(" ")" "!" "@" "#" "$" "%" "^" "&" "*" "_" "+")) + (define (get-shifted-key-list) shifted-key-list) (define keyerr (lambda (str)