mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-07 12:50:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typos in ecl_{single,double}_float

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-11-02 18:10:12 +01:00
parent 744495f8eb
commit 2f463fb9ee
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/object.h
View file

@ -198,14 +198,14 @@ struct ecl_singlefloat {
float SFVAL; /* singlefloat value */
};
#define sf(obje) (obje)->SF.SFVAL
#define ecl_single_float(o) ((o)->SF.value)
#define ecl_single_float(o) ((o)->SF.SFVAL)
struct ecl_doublefloat {
HEADER;
double DFVAL; /* doublefloat value */
};
#define df(obje) (obje)->DF.DFVAL
#define ecl_double_float(o) ((o)->DF.value)
#define ecl_double_float(o) ((o)->DF.DFVAL)
#ifdef ECL_LONG_FLOAT
struct ecl_long_float {