diff --git a/collects/future-visualizer/private/graph-drawing.rkt b/collects/future-visualizer/private/graph-drawing.rkt index ee4f6963df..a95662ad16 100644 --- a/collects/future-visualizer/private/graph-drawing.rkt +++ b/collects/future-visualizer/private/graph-drawing.rkt @@ -1,13 +1,17 @@ -#lang racket -(require rackunit +#lang racket/base + +(require racket/list + racket/contract + ;; rackunit "constants.rkt") -(provide (struct-out point) - (struct-out node) - (struct-out drawable-node) - (struct-out graph-layout) + +(provide (struct-out point) + (struct-out node) + (struct-out drawable-node) + (struct-out graph-layout) (struct-out attributed-node) draw-tree - drawable-node-center + drawable-node-center build-attr-tree) (define-struct/contract point ([x integer?] [y integer?]) #:transparent) diff --git a/collects/future-visualizer/scribblings/common.rkt b/collects/future-visualizer/scribblings/common.rkt index e445f288ea..8dd07868b8 100644 --- a/collects/future-visualizer/scribblings/common.rkt +++ b/collects/future-visualizer/scribblings/common.rkt @@ -1,4 +1,4 @@ -#lang racket +#lang racket/base (require (for-label racket/base) scribble/manual