458 |
/* Multi-language support */ |
/* Multi-language support */ |
459 |
|
|
460 |
#define SCM_IM_NIL_COND SCM_MAKISYM (25) |
#define SCM_IM_NIL_COND SCM_MAKISYM (25) |
461 |
#define SCM_IM_NIL_IFY SCM_MAKISYM (26) |
#define SCM_IM_BIND SCM_MAKISYM (26) |
|
#define SCM_IM_T_IFY SCM_MAKISYM (27) |
|
|
#define SCM_IM_0_COND SCM_MAKISYM (28) |
|
|
#define SCM_IM_0_IFY SCM_MAKISYM (29) |
|
|
#define SCM_IM_1_IFY SCM_MAKISYM (30) |
|
|
#define SCM_IM_BIND SCM_MAKISYM (31) |
|
462 |
|
|
463 |
#define SCM_IM_DELAY SCM_MAKISYM (32) |
#define SCM_IM_DELAY SCM_MAKISYM (27) |
464 |
#define SCM_IM_CALL_WITH_VALUES SCM_MAKISYM (33) |
#define SCM_IM_CALL_WITH_VALUES SCM_MAKISYM (28) |
465 |
|
|
466 |
/* When a variable is unbound this is marked by the SCM_UNDEFINED |
/* When a variable is unbound this is marked by the SCM_UNDEFINED |
467 |
* value. The following is an unbound value which can be handled on |
* value. The following is an unbound value which can be handled on |
472 |
* used instead. It is not ideal to let this kind of unique and |
* used instead. It is not ideal to let this kind of unique and |
473 |
* strange values loose on the Scheme level. |
* strange values loose on the Scheme level. |
474 |
*/ |
*/ |
475 |
#define SCM_UNBOUND SCM_MAKIFLAG (34) |
#define SCM_UNBOUND SCM_MAKIFLAG (29) |
476 |
|
|
477 |
#define SCM_UNBNDP(x) (SCM_EQ_P ((x), SCM_UNDEFINED)) |
#define SCM_UNBNDP(x) (SCM_EQ_P ((x), SCM_UNDEFINED)) |
478 |
|
|
479 |
|
/* The Elisp nil value. */ |
480 |
|
#define SCM_ELISP_NIL SCM_MAKIFLAG (30) |
481 |
|
|
482 |
|
|
483 |
|
|
484 |
/* Dispatching aids: |
/* Dispatching aids: |