From fbb31a13935fb6a5ffe3f9af5a94abdcce27dd3c Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 4 Aug 2009 18:19:52 +0000
Subject: [PATCH] changed to scheme/base

svn: r15670
---
 collects/htdp/error.ss | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/collects/htdp/error.ss b/collects/htdp/error.ss
index 3d9e1ed1fd..a819a59795 100644
--- a/collects/htdp/error.ss
+++ b/collects/htdp/error.ss
@@ -1,7 +1,4 @@
-#lang mzscheme
-
-(require mzlib/etc 
-         mzlib/list)
+#lang scheme/base
 
 ;; --------------------------------------------------------------------------
 (provide check-arg check-arity check-proc check-result check-list-list
@@ -85,7 +82,7 @@
        [(8) "eighth"]
        [(9) "ninth"]
        [(10) "tenth"]
-       [_ (format "~ath") arg-posn])]))
+       [else (format "~ath") arg-posn])]))
 
 ;; check-arity : sym num (list-of TST) -> void
 (define (check-arity name arg# args)