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

sorear · Jul 7, 2012 · 442e075 · 442e075
1 parent f36d743
commit 442e075
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/CORE.setting b/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}))])