diff --git a/c/main.c b/c/main.c
index 5117fbb..a9f5200 100644
--- a/c/main.c
+++ b/c/main.c
@@ -15,7 +15,6 @@
 #define BOOT_ENV_R7RS 1
 #define BOOT_ENV_UNSTABLE 2
 
-extern void write_defaults_indent(struct ios *f, value_t v);
 
 static value_t argv_list(int argc, char *argv[])
 {
diff --git a/c/print.h b/c/print.h
index 389c952..95854f2 100644
--- a/c/print.h
+++ b/c/print.h
@@ -913,6 +913,14 @@ void display_defaults(struct ios *f, value_t v)
     print_with_options(f, v, &opts);
 }
 
+void write_simple_defaults(struct ios *f, value_t v)
+{
+    struct printer_options opts;
+
+    memset(&opts, 0, sizeof(opts));
+    print_with_options(f, v, &opts);
+}
+
 void write_defaults_indent(struct ios *f, value_t v)
 {
     struct printer_options opts;
diff --git a/c/scheme.h b/c/scheme.h
index 3ac87df..672e646 100644
--- a/c/scheme.h
+++ b/c/scheme.h
@@ -715,6 +715,10 @@ value_t fl_toplevel_eval(value_t expr);
 value_t fl_apply(value_t f, value_t l);
 value_t fl_applyn(uint32_t n, value_t f, ...);
 
+void display_defaults(struct ios *f, value_t v);
+void write_simple_defaults(struct ios *f, value_t v);
+void write_defaults_indent(struct ios *f, value_t v);
+
 extern value_t printprettysym, printreadablysym, printwidthsym;
 
 // object model manipulation
diff --git a/c/string.c b/c/string.c
index 7a3e80e..6292b11 100644
--- a/c/string.c
+++ b/c/string.c
@@ -19,8 +19,6 @@
 
 #include "scheme.h"
 
-extern void display_defaults(struct ios *f, value_t v);
-
 value_t fl_stringp(value_t *args, uint32_t nargs)
 {
     argcount("string?", nargs, 1);