From 6bf5d43c37eb66e6d8cb863dd4b7fba22cafe7b4 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Tue, 6 Sep 2011 16:54:56 -0600 Subject: [PATCH] [honu] expand honu's #%top-interaction to racket's #%top-interaction --- collects/honu/core/private/honu-typed-scheme.rkt | 4 +++- collects/honu/core/private/honu2.rkt | 2 +- collects/honu/lang/reader.rkt | 1 + 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/honu/core/private/honu-typed-scheme.rkt b/collects/honu/core/private/honu-typed-scheme.rkt index cd55a79591..118244f34b 100644 --- a/collects/honu/core/private/honu-typed-scheme.rkt +++ b/collects/honu/core/private/honu-typed-scheme.rkt @@ -457,7 +457,9 @@ Then, in the pattern above for 'if', 'then' would be bound to the following synt [(_) #'(void)] [(_ forms ...) (define-values (parsed unparsed) (honu-expand #'(forms ...))) - (debug "expanded ~a\n" (syntax->datum parsed)) + (debug "expanded ~a unexpanded ~a\n" + (syntax->datum parsed) + (syntax->datum unparsed)) (with-syntax ([parsed parsed] [(unparsed ...) unparsed]) (if (null? (syntax->datum #'(unparsed ...))) diff --git a/collects/honu/core/private/honu2.rkt b/collects/honu/core/private/honu2.rkt index 6f4a86d1fe..3a80e69957 100644 --- a/collects/honu/core/private/honu2.rkt +++ b/collects/honu/core/private/honu2.rkt @@ -165,4 +165,4 @@ (define-syntax (honu-top-interaction stx) (syntax-case stx () [(_ rest ...) - #'(printf "~a\n" (honu-unparsed-begin rest ...))])) + #'(#%top-interaction . (honu-unparsed-begin rest ...))])) diff --git a/collects/honu/lang/reader.rkt b/collects/honu/lang/reader.rkt index e813f69486..ed19d2233a 100644 --- a/collects/honu/lang/reader.rkt +++ b/collects/honu/lang/reader.rkt @@ -6,6 +6,7 @@ honu #:read-syntax honu-read-syntax #:whole-body-readers? #t #:info honu-info +#:language-info #(honu/core/language honu-language-info #f) (require "../core/read.rkt" "../core/language.rkt")