3 |
#ifndef SCM_TAGS_H |
#ifndef SCM_TAGS_H |
4 |
#define SCM_TAGS_H |
#define SCM_TAGS_H |
5 |
|
|
6 |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002 Free Software Foundation, Inc. |
7 |
* |
* |
8 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
9 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
459 |
#define SCM_IM_BIND SCM_MAKISYM (26) |
#define SCM_IM_BIND SCM_MAKISYM (26) |
460 |
|
|
461 |
#define SCM_IM_DELAY SCM_MAKISYM (27) |
#define SCM_IM_DELAY SCM_MAKISYM (27) |
462 |
#define SCM_IM_CALL_WITH_VALUES SCM_MAKISYM (28) |
#define SCM_IM_FUTURE SCM_MAKISYM (28) |
463 |
|
#define SCM_IM_CALL_WITH_VALUES SCM_MAKISYM (29) |
464 |
|
|
465 |
/* When a variable is unbound this is marked by the SCM_UNDEFINED |
/* When a variable is unbound this is marked by the SCM_UNDEFINED |
466 |
* value. The following is an unbound value which can be handled on |
* value. The following is an unbound value which can be handled on |
471 |
* 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 |
472 |
* strange values loose on the Scheme level. |
* strange values loose on the Scheme level. |
473 |
*/ |
*/ |
474 |
#define SCM_UNBOUND SCM_MAKIFLAG (29) |
#define SCM_UNBOUND SCM_MAKIFLAG (30) |
475 |
|
|
476 |
#define SCM_UNBNDP(x) (SCM_EQ_P ((x), SCM_UNDEFINED)) |
#define SCM_UNBNDP(x) (SCM_EQ_P ((x), SCM_UNDEFINED)) |
477 |
|
|
478 |
/* The Elisp nil value. */ |
/* The Elisp nil value. */ |
479 |
#define SCM_ELISP_NIL SCM_MAKIFLAG (30) |
#define SCM_ELISP_NIL SCM_MAKIFLAG (31) |
480 |
|
|
481 |
|
|
482 |
|
|