From 74f88bde6840b7e14ea18d6bff5e63d80f348b09 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 16 Feb 2009 01:02:55 +0000
Subject: [PATCH] Some more require sorting -- no need for the scribble stuff
 to be provided from literate-lang, and switched to scheme/base (so the game
 file need to require it for syntax.)

svn: r13636
---
 collects/games/chat-noir/chat-noir-literate.ss |  3 ++-
 collects/games/chat-noir/literate-lang.ss      | 16 +++-------------
 2 files changed, 5 insertions(+), 14 deletions(-)

diff --git a/collects/games/chat-noir/chat-noir-literate.ss b/collects/games/chat-noir/chat-noir-literate.ss
index ecf4a678c4..acde710cfd 100644
--- a/collects/games/chat-noir/chat-noir-literate.ss
+++ b/collects/games/chat-noir/chat-noir-literate.ss
@@ -1,6 +1,7 @@
 #reader "literate-reader.ss"
 
-@(require scheme/local scheme/list scheme/bool scheme/math)
+@(require scheme/local scheme/list scheme/bool scheme/math
+          (for-syntax scheme/base))
 
 @title{Chat Noir}
 
diff --git a/collects/games/chat-noir/literate-lang.ss b/collects/games/chat-noir/literate-lang.ss
index 3f6bbbecc5..fee0227da7 100644
--- a/collects/games/chat-noir/literate-lang.ss
+++ b/collects/games/chat-noir/literate-lang.ss
@@ -1,20 +1,10 @@
-#lang scheme
+#lang scheme/base
 
-(provide (except-out (all-from-out scheme)
-                     #%module-begin)
+(provide (except-out (all-from-out scheme/base) #%module-begin)
          (rename-out [module-begin #%module-begin])
-         (all-from-out scribble/basic
-                       scribble/manual)
          chunk)
 
-(require (for-syntax scheme/base
-                     syntax/boundmap
-                     scheme/list
-                     syntax/kerncase)
-         scribble/manual
-         scribble/struct
-         scribble/basic
-         scribble/decode)
+(require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase))
 
 (begin-for-syntax
   (define main-id #f)