* Unified ssymbols and msymbols to a single symbol type 'scm_tc7_symbol'.

[bpt/guile.git] / libguile / objects.c

diff --git a/libguile/objects.c b/libguile/objects.c
index b8c6ac0..3c70ea0 100644 (file)
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -120,7 +120,7 @@ scm_class_of (SCM x)
          return scm_class_pair;
        case scm_tcs_closures:
          return scm_class_procedure;
-       case scm_tcs_symbols:
+       case scm_tc7_symbol:
          return scm_class_symbol;
        case scm_tc7_vector:
        case scm_tc7_wvect: