make print a macro
This commit is contained in:
parent
3d6de914b4
commit
00094ba4e3
|
@ -61,6 +61,7 @@
|
|||
(honu-. |.|)
|
||||
)
|
||||
|
||||
#;
|
||||
(rename-out [honu-print print])
|
||||
|
||||
#%top
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
|
7
collects/honu/private/common.honu
Normal file
7
collects/honu/private/common.honu
Normal file
|
@ -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();} ...); }
|
Loading…
Reference in New Issue
Block a user