summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-14 06:43:03 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-14 06:43:03 +0000
commit950cc72b8f2e9636de633d01975cb1c41e4ab1af (patch)
treeacae7c4a15ca27020559d3d31209913494548f73 /libguile/objects.c
parentbc86da5de2a7c9ceee81c334c32d24298ab31d9b (diff)
downloadguile-950cc72b8f2e9636de633d01975cb1c41e4ab1af.tar.gz
* __scm.h eq.c, eval.c, gc.c, hc.h, gh_data, hash.c, numbers.c,
numbers.h, objects.c, ramap.c, random.c, unif.c, unif.h: Extensive rewrite of handling of real and complex numbers. (SCM_FLOATS, SCM_SINGLES): These #ifdef conditionals have been removed along with the support for floats. (Float vectors are still supported.)
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c11
1 files changed, 2 insertions, 9 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index 5026f3b66..17d669bbd 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 1996, 1999 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 1996, 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -158,14 +158,7 @@ scm_class_of (SCM x)
case scm_tc7_smob:
{
long type = SCM_TYP16 (x);
- if (type == scm_tc16_flo)
- {
- if (SCM_UNPACK_CAR (x) & SCM_IMAG_PART)
- return scm_class_complex;
- else
- return scm_class_real;
- }
- else if (type != scm_tc16_port_with_ps)
+ if (type != scm_tc16_port_with_ps)
return scm_smob_class[SCM_TC2SMOBNUM (type)];
x = SCM_PORT_WITH_PS_PORT (x);
/* fall through to ports */