Add &print

sorear · Dec 2, 2010 · e7cb374 · e7cb374
1 parent 2e2c977
commit e7cb374
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib/SAFE.setting b/lib/SAFE.setting
@@ -215,8 +215,9 @@ sub warn($str) { Q:CgOp {
     )
 } }
 
-sub say(*@obj) { @obj.join('').say }
-sub note(*@text) { Q:CgOp { (rnull (note (obj_getstr {@text.join('')}))) } }
+sub say(*@text)   { Q:CgOp { (rnull (say   (obj_getstr {@text.join('')}))) } }
+sub print(*@text) { Q:CgOp { (rnull (print (obj_getstr {@text.join('')}))) } }
+sub note(*@text)  { Q:CgOp { (rnull (note  (obj_getstr {@text.join('')}))) } }
 
 sub exit($status = 0) { Q:CgOp {
     (rnull [exit (cast int (obj_getnum {$status}))])

diff --git a/src/CgOp.pm b/src/CgOp.pm
@@ -181,6 +181,7 @@ use warnings;
     sub strbuf_seal { rawcall($_[0], 'ToString') }
 
     sub say { rawscall('Console.WriteLine', $_[0]) }
+    sub print { rawscall('Console.Write:m,Void', $_[0]) }
     sub note { rawscall('Console.Error.WriteLine', $_[0]) }
     sub exit { rawscall('System.Environment.Exit', $_[0]) }
     sub slurp { rawscall('System.IO.File.ReadAllText', $_[0]) }