suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add 'require' to the begin keywords

Browse Source 
and tweak the example for the color schemes
This commit is contained in:
Robby Findler 2013-09-20 15:56:48 -05:00
parent cd004fd9ce
commit bece398a63
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt
View File

@ -597,8 +597,8 @@
(string-append (string-append
"#lang racket ; draw a graph of\n" "#lang racket ; draw a graph of\n"
"(require plot) ; cos and log\n" "(require plot) ; cos and log\n"
"(plot (list (function cos -5 5)\n" "(plot #:label \"y = cos(x) & y = log(x)\"\n"
" (function log -5 5)))\n" " (list (function cos -5 5) (function log -5 5)))\n"
"\"an unclosed string is an error")) "\"an unclosed string is an error"))
(struct color-scheme (name button-label white-on-black-base? mapping example) #:transparent) (struct color-scheme (name button-label white-on-black-base? mapping example) #:transparent)

2
pkgs/gui-pkgs/gui-lib/framework/private/main.rkt
View File

@ -360,7 +360,7 @@
cond cond
delay delay
unit compound-unit compound-unit/sig unit compound-unit compound-unit/sig
public private override public private override require
inherit sequence)) inherit sequence))
(for-each (λ (x) (hash-set! defaults-ht x 'lambda)) (for-each (λ (x) (hash-set! defaults-ht x 'lambda))
`( `(