From bece398a63bb8ef9d3cc07dbf10495017d0c684a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 20 Sep 2013 15:56:48 -0500 Subject: [PATCH] add 'require' to the begin keywords and tweak the example for the color schemes --- pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt | 4 ++-- pkgs/gui-pkgs/gui-lib/framework/private/main.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt index 63373e6e37..f9548d3805 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt @@ -597,8 +597,8 @@ (string-append "#lang racket ; draw a graph of\n" "(require plot) ; cos and log\n" - "(plot (list (function cos -5 5)\n" - " (function log -5 5)))\n" + "(plot #:label \"y = cos(x) & y = log(x)\"\n" + " (list (function cos -5 5) (function log -5 5)))\n" "\"an unclosed string is an error")) (struct color-scheme (name button-label white-on-black-base? mapping example) #:transparent) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt index d80fc8624f..503429fd73 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt @@ -360,7 +360,7 @@ cond delay unit compound-unit compound-unit/sig - public private override + public private override require inherit sequence)) (for-each (λ (x) (hash-set! defaults-ht x 'lambda)) `(