Add printErrorLn to common.mc

miking-lang · Nov 21, 2024 · 2d77f56 · 2d77f56
1 parent 5966b62
commit 2d77f56
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/stdlib/common.mc b/stdlib/common.mc
@@ -13,6 +13,7 @@ let flip = lam f. lam x. lam y. f y x
 
 -- Printing stuff
 let printLn = lam s. print (concat s "\n"); flushStdout ()
+let printErrorLn = lam s. printError (concat s "\n"); flushStderr ()
 let printSeq = lam s. print (join s)
 let printSeqLn = lam s. printSeq s; print "\n"; flushStdout ()
 let dprintLn = lam x. dprint x; printLn ""