conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added the "unspecified" type. 

git-svn-id: svn://svn.zoy.org/elk/trunk@175 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-22 22:46:24 +00:00
parent 3fe1208817
commit d2b7366679
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/extern.h
View File

@ -448,6 +448,7 @@ extern_c Object elk_import False;
extern_c Object elk_import Void; extern_c Object elk_import Void;
extern_c Object elk_import Newline; extern_c Object elk_import Newline;
extern_c Object elk_import Eof; extern_c Object elk_import Eof;
extern_c Object elk_import Unspecified;
extern Object Intern P_((const char*)); extern Object Intern P_((const char*));
extern Object CI_Intern P_((const char*)); extern Object CI_Intern P_((const char*));
extern Object P_Oblist P_((void)); extern Object P_Oblist P_((void));

11
include/object.h
View File

@ -122,12 +122,13 @@ typedef struct {
#define T_Promise 16 /* Result of (delay expression) */ #define T_Promise 16 /* Result of (delay expression) */
#define T_Port 17 #define T_Port 17
#define T_End_Of_File 18 #define T_End_Of_File 18
#define T_Autoload 19 #define T_Unspecified 19 /* only used internally */
#define T_Macro 20 #define T_Autoload 20
#define T_Broken_Heart 21 /* only used internally */ #define T_Macro 21
#define T_Broken_Heart 22 /* only used internally */
#ifdef GENERATIONAL_GC #ifdef GENERATIONAL_GC
# define T_Align_8Byte 22 /* only used internally */ # define T_Align_8Byte 23 /* only used internally */
# define T_Freespace 23 /* only used internally */ # define T_Freespace 24 /* only used internally */
#endif #endif
#define BIGNUM(x) ((struct S_Bignum *)POINTER(x)) #define BIGNUM(x) ((struct S_Bignum *)POINTER(x))

2
src/symbol.c
View File

@ -48,6 +48,7 @@ Object Null,
Void, Void,
Newline, Newline,
Eof, Eof,
Unspecified,
Zero, Zero,
One; One;
@ -59,6 +60,7 @@ void Init_Symbol () {
SET(Unbound, T_Unbound, 0); SET(Unbound, T_Unbound, 0);
SET(Special, T_Special, 0); SET(Special, T_Special, 0);
SET(Eof, T_End_Of_File, 0); SET(Eof, T_End_Of_File, 0);
SET(Unspecified, T_Unspecified, 0);
Newline = Make_Char ('\n'); Newline = Make_Char ('\n');
Zero = Make_Integer (0); Zero = Make_Integer (0);
One = Make_Integer (1); One = Make_Integer (1);