From 3d6de914b44f7062aaee8db7c289454693006b0b Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Fri, 16 Jul 2010 13:38:16 -0600
Subject: [PATCH] add print - display + newline

---
 collects/honu/core/main.rkt                      | 2 ++
 collects/honu/core/private/honu-typed-scheme.rkt | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/collects/honu/core/main.rkt b/collects/honu/core/main.rkt
index 58fcb6879d..6f0b03bf56 100644
--- a/collects/honu/core/main.rkt
+++ b/collects/honu/core/main.rkt
@@ -61,6 +61,8 @@
                      (honu-. |.|)
                      )
 
+         (rename-out [honu-print print])
+
          #%top
 
          ;; sql nonsense
diff --git a/collects/honu/core/private/honu-typed-scheme.rkt b/collects/honu/core/private/honu-typed-scheme.rkt
index 7f58336d44..043e153582 100644
--- a/collects/honu/core/private/honu-typed-scheme.rkt
+++ b/collects/honu/core/private/honu-typed-scheme.rkt
@@ -621,6 +621,9 @@ if (foo){
                      (honu-unparsed-begin forms ...))
                     (#%plain-module-begin (honu-unparsed-begin forms ...)))
 
+(define (honu-print arg)
+  (printf "~a\n" arg))
+
 (define-syntax (#%dynamic-honu-module-begin stx)
   (syntax-case stx ()
     [(_ forms ...)