make print a macro

collects/honu/core/main.rkt

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

collects/honu/core/private/honu-typed-scheme.rkt

@@ -621,6 +621,7 @@ if (foo){
                      (honu-unparsed-begin forms ...))
                     (#%plain-module-begin (honu-unparsed-begin forms ...)))
 
+#;
 (define (honu-print arg)
   (printf "~a\n" arg))
 

collects/honu/main.rkt

@@ -12,7 +12,8 @@
 
 (provide-module "core/main.rkt"
                 "private/struct.honu"
-                "private/function.honu")
+                "private/function.honu"
+                "private/common.honu")
 
 #|
 (racket:require "core/main.rkt"

collects/honu/private/common.honu

@@ -0,0 +1,7 @@
+#lang honu/core
+
+provide print;
+
+macro print ()
+{ _ (value:expression); } { syntax(display(value_result); newline();); }
+{ _ value:expression_comma ... ; } { syntax({display(value_result); newline();} ...); }