mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Don't doubly define scm_t_wchar

Browse source 
* libguile/chars.h: don't define scm_t_wchar
        * libguile/numbers.h: define scm_t_wchar here
This commit is contained in:
Michael Gran 2009-08-01 11:21:46 -07:00
parent f7118e3552
commit a876e7dcea
2 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/chars.h
View file

@ -24,16 +24,11 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include "libguile/numbers.h"
/* Immediate Characters /* Immediate Characters
*/ */
#ifndef SCM_WCHAR_DEFINED
typedef scm_t_int32 scm_t_wchar;
#define SCM_WCHAR_DEFINED
#endif
#define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char) #define SCM_CHARP(x) (SCM_ITAG8(x) == scm_tc8_char)
#define SCM_CHAR(x) ((scm_t_wchar)SCM_ITAG8_DATA(x)) #define SCM_CHAR(x) ((scm_t_wchar)SCM_ITAG8_DATA(x))

3
libguile/numbers.h
View file

@ -174,10 +174,7 @@ typedef struct scm_t_complex
double imag; double imag;
} scm_t_complex; } scm_t_complex;
#ifndef SCM_WCHAR_DEFINED
typedef scm_t_int32 scm_t_wchar; typedef scm_t_int32 scm_t_wchar;
#define SCM_WCHAR_DEFINED
#endif