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

unbreak framework

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-13 10:51:20 -06:00
parent 3dcecc00ae
commit 9a1d8f7215
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gui-lib/framework/private/color.rkt
View File

@ -22,8 +22,7 @@ added get-regions
"color-local-member-name.rkt") "color-local-member-name.rkt")
(provide color@) (provide color@)
(define color@ (define-unit color@
(unit
(import [prefix icon: framework:icon^] (import [prefix icon: framework:icon^]
[prefix mode: framework:mode^] [prefix mode: framework:mode^]
[prefix text: framework:text^] [prefix text: framework:text^]
@ -1328,7 +1327,7 @@ added get-regions
(define text-mode% (text-mode-mixin mode:surrogate-text%)) (define text-mode% (text-mode-mixin mode:surrogate-text%))
(define misspelled-text-color-style-name "Misspelled Text"))) (define misspelled-text-color-style-name "Misspelled Text"))
(define logger (make-logger 'framework/colorer (current-logger))) (define logger (make-logger 'framework/colorer (current-logger)))
(define-syntax-rule (define-syntax-rule