Permalink
Browse files

&say et al return True

  • Loading branch information...
1 parent 9a3aa2b commit 4d1cb46520c1eb0a93aa303ed15df86b6ab1fabc @sorear committed Dec 27, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/SAFE.setting
View
6 lib/SAFE.setting
@@ -276,9 +276,9 @@ sub warn($str) { Q:CgOp {
)
} }
-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 say(*@text) { Q:CgOp { (rnull (say (obj_getstr {@text.join('')}))) }; True }
+sub print(*@text) { Q:CgOp { (rnull (print (obj_getstr {@text.join('')}))) }; True }
+sub note(*@text) { Q:CgOp { (rnull (note (obj_getstr {@text.join('')}))) }; True }
sub exit($status = 0) { Q:CgOp {
(rnull [exit (cast int (obj_getnum {$status}))])

0 comments on commit 4d1cb46

Please sign in to comment.