Additional wrappers

Author: andrjohns

src/libquickjs.c

@@ -1,5 +1,4 @@
 #include <R_ext/Error.h>
-#include <stdio.h>
 #include <R_ext/Print.h>
 
 void Rf_abort() {
@@ -14,7 +13,7 @@ void Rf_exit(int code) {
 #define exit Rf_exit
 #define _exit Rf_exit
 #define fprintf(file, ...) Rprintf(__VA_ARGS__)
-#define putchar Rprintf
+#define putchar(c) Rprintf("%s", c)
 #define stderr NULL
 #define stdout NULL