1 #define ERROR_HANDLE_EXPIRED (0<<3)
2 #define ERROR_UNDEFINED_WORD (1<<3)
3 #define ERROR_TYPE (2<<3)
4 #define ERROR_RANGE (3<<3)
5 #define ERROR_UNDERFLOW (4<<3)
6 #define ERROR_BAD_PRIMITIVE (5<<3)
7 #define ERROR_HANDLE_INCOMPAT (6<<3)
8 #define ERROR_IO (7<<3)
10 void fatal_error(char* msg, CELL tagged);
11 void critical_error(char* msg, CELL tagged);
12 void fix_stacks(void);
13 void throw_error(CELL object);
14 void general_error(CELL error, CELL tagged);
15 void type_error(CELL type, CELL tagged);
16 void range_error(CELL tagged, CELL index, CELL max);
17 void io_error(const char* func);