From c94fda343b2b2c110c9b5a44b3943cbf1a09e28d Mon Sep 17 00:00:00 2001
From: Keith Rarick <kr@xph.us>
Date: Sun, 15 Mar 2009 14:21:09 -0700
Subject: [PATCH] Print symbols to the correct fd.

---
 prim.c    | 2 +-
 symbol.h  | 2 +-
 symbol.na | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/prim.c b/prim.c
index 09b3a8d..8517509 100644
--- a/prim.c
+++ b/prim.c
@@ -127,7 +127,7 @@ prxf(int fd, datum d)
     } else if (imep(d)) {
         prfmt(fd, "<C func %p>", d[0]);
     } else if (symbolp(d)) {
-        pr_symbol(d);
+        pr_symbol(fd, d);
     } else if (strp(d)) {
         write(fd, d, datum_size(d));
     } else if (bytesp(d)) {
diff --git a/symbol.h b/symbol.h
index 0128eca..5a764a1 100644
--- a/symbol.h
+++ b/symbol.h
@@ -13,7 +13,7 @@ datum intern_str(datum name);
 int symbolp(datum d);
 size_t symbol_copy0(char *dest, size_t n, datum sym);
 
-void pr_symbol(datum sym);
+void pr_symbol(int fd, datum sym);
 
 
 #endif /*symbol_h*/
diff --git a/symbol.na b/symbol.na
index f4ac1ef..ad4d29d 100644
--- a/symbol.na
+++ b/symbol.na
@@ -128,10 +128,10 @@ intern_str(datum name)
 }
 
 void
-pr_symbol(datum sym)
+pr_symbol(int fd, datum sym)
 {
-    if (!symbolp(sym)) return prfmt(1, "<bad-symbol>");
-    prx(((symbol) sym)->name);
+    if (!symbolp(sym)) return prfmt(fd, "<bad-symbol>");
+    prfmt(fd, "%o", ((symbol) sym)->name);
 }
 
 int