mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* __scm.h eq.c, eval.c, gc.c, hc.h, gh_data, hash.c, numbers.c,

Browse source 
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.)
This commit is contained in:
Mikael Djurfeldt 2000-03-14 06:43:03 +00:00
parent bc86da5de2
commit 950cc72b8f
8 changed files with 116 additions and 145 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/objects.c
View file

@ -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 */