/[guile]/guile/guile-core/libguile/objects.c
ViewVC logotype

Diff of /guile/guile-core/libguile/objects.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.73 by dirk, Sun Jun 1 13:58:42 2003 UTC revision 1.74 by dirk, Tue Sep 16 17:37:56 2003 UTC
# Line 71  SCM_DEFINE (scm_class_of, "class-of", 1, Line 71  SCM_DEFINE (scm_class_of, "class-of", 1,
71      case scm_tc3_imm24:      case scm_tc3_imm24:
72        if (SCM_CHARP (x))        if (SCM_CHARP (x))
73          return scm_class_char;          return scm_class_char;
74          else if (SCM_BOOLP (x))
75            return scm_class_boolean;
76          else if (SCM_NULLP (x))
77            return scm_class_null;
78        else        else
79          {          return scm_class_unknown;
           switch (SCM_ISYMNUM (x))  
             {  
             case SCM_ISYMNUM (SCM_BOOL_F):  
             case SCM_ISYMNUM (SCM_BOOL_T):  
               return scm_class_boolean;  
             case SCM_ISYMNUM (SCM_EOL):  
               return scm_class_null;  
             default:  
               return scm_class_unknown;  
             }  
         }  
80    
81      case scm_tc3_cons:      case scm_tc3_cons:
82        switch (SCM_TYP7 (x))        switch (SCM_TYP7 (x))

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26