From 219578cff9a021189604b94a394383ecf4ad10f4 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sun, 25 Aug 2019 23:27:59 +0300
Subject: [PATCH] Remove temp xwrite/x... and old princ/print

---
 c/print.h              | 8 --------
 scheme-core/system.scm | 3 ---
 2 files changed, 11 deletions(-)

diff --git a/c/print.h b/c/print.h
index 67031db..389c952 100644
--- a/c/print.h
+++ b/c/print.h
@@ -1059,14 +1059,6 @@ static struct builtinspec printfunc_info[] = {
     { "write-shared", builtin_write_shared },
     { "write-simple", builtin_write_simple },
     { "newline", builtin_newline },
-
-    { "xdisplay", builtin_display },
-    { "xdisplayln", builtin_displayln },
-    { "xwrite", builtin_write },
-    { "xwriteln", builtin_writeln },
-    { "xwrite-shared", builtin_write_shared },
-    { "xwrite-simple", builtin_write_simple },
-    { "xnewline", builtin_newline },
     { NULL, NULL }
 };
 
diff --git a/scheme-core/system.scm b/scheme-core/system.scm
index eed8af4..570afe8 100644
--- a/scheme-core/system.scm
+++ b/scheme-core/system.scm
@@ -5,9 +5,6 @@
 
 (define (void) #t)  ; the unspecified value
 
-(define princ #f)
-(define print #f)
-
 (define *builtins*
   (vector
    0 0 0 0 0 0 0 0 0 0 0 0