/[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.74 by dirk, Tue Sep 16 17:37:56 2003 UTC revision 1.75 by dirk, Thu Sep 18 20:55:40 2003 UTC
# Line 102  SCM_DEFINE (scm_class_of, "class-of", 1, Line 102  SCM_DEFINE (scm_class_of, "class-of", 1,
102            return scm_class_vector;            return scm_class_vector;
103          case scm_tc7_string:          case scm_tc7_string:
104            return scm_class_string;            return scm_class_string;
105            case scm_tc7_number:
106              switch SCM_TYP16 (x) {
107              case scm_tc16_big:
108                return scm_class_integer;
109              case scm_tc16_real:
110                return scm_class_real;
111              case scm_tc16_complex:
112                return scm_class_complex;
113              }
114          case scm_tc7_asubr:          case scm_tc7_asubr:
115          case scm_tc7_subr_0:          case scm_tc7_subr_0:
116          case scm_tc7_subr_1:          case scm_tc7_subr_1:

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

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