From f3ae0f18752594a13777c9a7b5ad47db5de12386 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Tue, 3 Nov 2009 22:13:13 +0000
Subject: [PATCH] remove old provide. disable honu repl

svn: r16532
---
 collects/honu/main.ss         | 2 +-
 collects/honu/private/honu.ss | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/honu/main.ss b/collects/honu/main.ss
index ff9ac0152f..5447480aba 100644
--- a/collects/honu/main.ss
+++ b/collects/honu/main.ss
@@ -34,7 +34,6 @@
                      (honu* *) 
                      (do do)
                      (honu-end end)
-                     (honu-for2 for2)
                      (modulo %)
                      (equal? ==)
                      (string->number stringToNumber)
@@ -46,5 +45,6 @@
                      (pair? isCons)
                      (#%dynamic-honu-module-begin #%module-begin)
                      (honu-#%app #%app)
+                     (honu-top #%top-interaction)
                      (honu-provide provide)
                      (honu-require require)))
diff --git a/collects/honu/private/honu.ss b/collects/honu/private/honu.ss
index 8187c145f1..dd8a1ea7a4 100644
--- a/collects/honu/private/honu.ss
+++ b/collects/honu/private/honu.ss
@@ -2082,5 +2082,5 @@
   (define-syntax (honu-end stx)
     (raise-syntax-error #f "ignore this" stx))
 
-  
-
+  (define-syntax (honu-top stx)
+    (raise-syntax-error #f "interactive use is not yet supported"))