Permalink
Browse files

Make printf work. (How had we missed this one?!)

  • Loading branch information...
1 parent f36d743 commit 442e075bb062dcb8b2299b56983841f6b6f5a9dc @colomon colomon committed Jul 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/CORE.setting
View
2 lib/CORE.setting
@@ -1275,7 +1275,7 @@ sub print(*@items) { $PROCESS::OUTPUT_USED := True; Q:CgOp { (rnull (print (obj_
sub note(|c) { $PROCESS::OUTPUT_USED := True; Q:CgOp { (rnull (note (obj_getstr {Niecza::gistcat(|c)}))) }; True }
sub sprintf(\|$args) { Q:CgOp { (sprintf (unbox fvarlist (@ {$args}))) } }
-sub printf(Cool $format, *@args) { print sprintf $format, @args };
+sub printf(Cool $format, *@args) { print sprintf $format, |@args };
sub exit($status = 0) { Q:CgOp {
(rnull [exit (cast int (obj_getnum {$status}))])

0 comments on commit 442e075

Please sign in to comment.