diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 06:43:03 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 06:43:03 +0000 |
commit | 950cc72b8f2e9636de633d01975cb1c41e4ab1af (patch) | |
tree | acae7c4a15ca27020559d3d31209913494548f73 /libguile/objects.c | |
parent | bc86da5de2a7c9ceee81c334c32d24298ab31d9b (diff) | |
download | guile-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.c | 11 |
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 */ |