From 208e9fb006061ee39c49b2fde9ba71ad3ac11e4d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 8 May 2007 01:02:40 +0000 Subject: [PATCH] fixed up minor bugs in program and lots of little problems in the test suites svn: r6173 original commit: 3c5f2c7395bb13b03d134772a64aadd75a6844f0 --- collects/framework/framework.ss | 8 ++++++++ collects/tests/framework/load.ss | 1 + 2 files changed, 9 insertions(+) diff --git a/collects/framework/framework.ss b/collects/framework/framework.ss index 950af34a..7d611671 100644 --- a/collects/framework/framework.ss +++ b/collects/framework/framework.ss @@ -118,6 +118,14 @@ "the second case in the case-lambda sets" "the name of the application to \\var{name}.") + (preferences:put-preferences/gui + (-> (listof symbol?) + (listof any/c) + any) + (name-list val-list) + "Like \\scheme{put-preferences}, but passes along" + "a \\var{locked-proc} that asks the user if they want to" + "try again.") (preferences:add-panel ((or/c string? (cons/c string? (listof string?))) ((is-a?/c area-container-window<%>) diff --git a/collects/tests/framework/load.ss b/collects/tests/framework/load.ss index 34fb5ad7..9a972a40 100644 --- a/collects/tests/framework/load.ss +++ b/collects/tests/framework/load.ss @@ -40,6 +40,7 @@ ;; these extra evals let me submit multiple, independent top-level ;; expressions in the newly created namespace. '(begin (eval '(require (lib "unit.ss"))) + (eval '(require-for-syntax mzscheme)) (eval '(require-for-syntax (lib "unit-exptime.ss"))) (eval '(define-syntax (signature->symbols stx) (syntax-case stx ()