From f7dd4317a11de080acbdec49940724e8502b3d29 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 6 Nov 2012 15:22:02 -0500 Subject: [PATCH] `#lang racket' -> `#lang racket/base' conversions in future-visualizer. --- .../private/graph-drawing.rkt | 18 +++++++++++------- .../future-visualizer/scribblings/common.rkt | 2 +- 2 files changed, 12 insertions(+), 8 deletions(-) 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