mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 04:00:19 +02:00
Code Activity

* smob.c (scm_smob_print): Handle non-existing type name nicely.

Browse source 
Removed #include "genio.h"
This commit is contained in:
Mikael Djurfeldt 1999-07-24 23:10:27 +00:00
parent f12733c9d4
commit 2c16a78a11
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/smob.c
View file

@ -44,7 +44,6 @@
#include "_scm.h" #include "_scm.h"
#include "objects.h" #include "objects.h"
#include "genio.h"
#ifdef HAVE_MALLOC_H #ifdef HAVE_MALLOC_H
#include <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); int n = SCM_SMOBNUM (exp);
scm_puts ("#<", port); scm_puts ("#<", port);
scm_puts (SCM_SMOBNAME (n), port); scm_puts (SCM_SMOBNAME (n) ? SCM_SMOBNAME (n) : "smob", port);
scm_putc (' ', port); scm_putc (' ', port);
scm_intprint (scm_smobs[n].size ? SCM_CDR (exp) : exp, 16, port); scm_intprint (scm_smobs[n].size ? SCM_CDR (exp) : exp, 16, port);
scm_putc ('>', port); scm_putc ('>', port);

1
libguile/smob.h
View file

@ -89,6 +89,7 @@ do { \
#define SCM_SET_SMOB_DATA(x, data) SCM_SETCDR (x, data) #define SCM_SET_SMOB_DATA(x, data) SCM_SETCDR (x, data)
#define SCM_TC2SMOBNUM(x) (0x0ff & ((x) >> 8)) #define SCM_TC2SMOBNUM(x) (0x0ff & ((x) >> 8))
#define SCM_SMOBNUM(x) (SCM_TC2SMOBNUM (SCM_CAR (x))) #define SCM_SMOBNUM(x) (SCM_TC2SMOBNUM (SCM_CAR (x)))
/* SCM_SMOBNAME can be 0 if name is missing */
#define SCM_SMOBNAME(smobnum) scm_smobs[smobnum].name #define SCM_SMOBNAME(smobnum) scm_smobs[smobnum].name
extern int scm_numsmob; extern int scm_numsmob;