|
Lines 47-53
Link Here
|
| 47 |
#define glame_scm2double(obj) scm_num2dbl (obj, "somewhere") |
47 |
#define glame_scm2double(obj) scm_num2dbl (obj, "somewhere") |
| 48 |
#define scm_str2string(str) gh_str02scm (str) |
48 |
#define scm_str2string(str) gh_str02scm (str) |
| 49 |
|
49 |
|
| 50 |
#if (SCM_MINOR_VERSION == 7) |
50 |
#if (SCM_MINOR_VERSION > 6) |
| 51 |
#define GLAME_NEWCELL(z) z = scm_cell (SCM_UNPACK(z), 0) |
51 |
#define GLAME_NEWCELL(z) z = scm_cell (SCM_UNPACK(z), 0) |
| 52 |
#endif |
52 |
#endif |
| 53 |
|
53 |
|
