add print - display + newline

This commit is contained in:
Jon Rafkind 2010-07-16 13:38:16 -06:00
parent 9c30bda973
commit 3d6de914b4
2 changed files with 5 additions and 0 deletions

View File

@ -61,6 +61,8 @@
(honu-. |.|)
)
(rename-out [honu-print print])
#%top
;; sql nonsense

View File

@ -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 ...)