Print symbols to the correct fd.

kr · Mar 16, 2009 · c94fda3 · c94fda3
1 parent 26fee9b
commit c94fda3
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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