Rackety (mostly letrec-values => define and minimizing dependencies)

original commit: 0ce6c755916f5cb06b517f43690dd705bac0b334
2011-10-31 09:08:31 -05:00 · 2011-10-31 09:08:31 -05:00 · 9b0140909e
commit 9b0140909e
parent 4a782c4000
1 changed files with 5 additions and 4 deletions
--- a/collects/redex/private/dot.rkt
+++ b/collects/redex/private/dot.rkt
@ -1,9 +1,10 @@
-#lang scheme/gui
-
+#lang racket/base
+(require racket/contract
+         racket/class
+         racket/gui/base
+         racket/system)
 (provide/contract [dot-positioning (-> (is-a?/c pasteboard%) string? boolean? void?)]
                  [find-dot (-> (or/c path? false/c))])
-      
-(require scheme/system)

 (provide dot-label neato-label neato-hier-label neato-ipsep-label)
 (define dot-label "dot")