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"))