From 82749312f6da310af4d5c515074c6112ab2e6812 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sat, 28 Aug 2010 23:51:20 -0400
Subject: [PATCH] Use `racket/base', no need for `begin-with-definitions'.

---
 collects/slideshow/initial-ones.rkt | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/collects/slideshow/initial-ones.rkt b/collects/slideshow/initial-ones.rkt
index d6125d0488..6f464a035b 100644
--- a/collects/slideshow/initial-ones.rkt
+++ b/collects/slideshow/initial-ones.rkt
@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 
 ;; Instead of using the `slideshow' language,
 ;;  we can use scheme/base and import slideshow/base, etc.
@@ -6,19 +6,17 @@
 (require slideshow/base
          slideshow/pict
          slideshow/code
-         mred
-         scheme/class
+         racket/class
          racket/path
-         racket/runtime-path
-         (only-in mzlib/etc begin-with-definitions
-                  this-expression-source-directory))
+         racket/gui/base
+         racket/runtime-path)
 
 (define-runtime-path tutorial-show "tutorial-show.rkt")
 
 (provide do-initial-slides)
 
 (define (do-initial-slides)
-  (begin-with-definitions
+
    (slide
     #:name "Title Slide"
     (titlet "Slideshow Tutorial")
@@ -170,4 +168,4 @@
                  (make-object style-delta% 'change-family 'modern)
                  0 'end)
            (send f show #t))))))
-   ))
+   )