diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-24 23:10:27 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-24 23:10:27 +0000 |
commit | 2c16a78a11cb78458e78b1454a23a2739166b6fd (patch) | |
tree | 749f729e7ee737999d61f991d089c26c9b4672ac /libguile/smob.c | |
parent | f12733c9d43d6147d9e7bf09cf51225945a1a97c (diff) | |
download | guile-2c16a78a11cb78458e78b1454a23a2739166b6fd.tar.gz |
* smob.c (scm_smob_print): Handle non-existing type name nicely.
Removed #include "genio.h"
Diffstat (limited to 'libguile/smob.c')
-rw-r--r-- | libguile/smob.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/smob.c b/libguile/smob.c index 53e8a413d..2338de271 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -44,7 +44,6 @@ #include "_scm.h" #include "objects.h" -#include "genio.h" #ifdef HAVE_MALLOC_H #include <malloc.h> @@ -114,7 +113,7 @@ scm_smob_print (SCM exp, SCM port, scm_print_state *pstate) { int n = SCM_SMOBNUM (exp); scm_puts ("#<", port); - scm_puts (SCM_SMOBNAME (n), port); + scm_puts (SCM_SMOBNAME (n) ? SCM_SMOBNAME (n) : "smob", port); scm_putc (' ', port); scm_intprint (scm_smobs[n].size ? SCM_CDR (exp) : exp, 16, port); scm_putc ('>', port); |