add display function API

2014-03-04 00:28:39 +09:00
parent 5b2898ae5c
commit 8f5c053bd8
2 changed files with 24 additions and 5 deletions
@@ -385,19 +385,33 @@ display(pic_state *pic, pic_value obj, xFILE *file)
 }

 pic_value
-pic_debug(pic_state *pic, pic_value obj)
+pic_write(pic_state *pic, pic_value obj)
 {
-  return pic_fdebug(pic, obj, xstdout);
+  return pic_fwrite(pic, obj, xstdout);
 }

 pic_value
-pic_fdebug(pic_state *pic, pic_value obj, xFILE *file)
+pic_fwrite(pic_state *pic, pic_value obj, xFILE *file)
 {
  write(pic, obj, file);
  xfflush(file);
  return obj;
 }

+pic_value
+pic_display(pic_state *pic, pic_value obj)
+{
+  return pic_fdisplay(pic, obj, xstdout);
+}
+
+pic_value
+pic_fdisplay(pic_state *pic, pic_value obj, xFILE *file)
+{
+  display(pic, obj, file);
+  xfflush(file);
+  return obj;
+}
+
 void
 pic_printf(pic_state *pic, const char *fmt, ...)
 {