/* Definitions that were used in older versions of Elk, but are now
 * obsolete and should not be used any longer.
 */

#define Declare_C_Strings   Alloca_Begin
#define Make_C_String       Get_Strsym_Stack
#define Dispose_C_Strings   Alloca_End

#define Val(x)              Cdr(x)

#define FIXNUM_FITS_UNSIGNED   UFIXNUM_FITS
#define SETFAST(x,y)       ((x) = (y))

#define Make_Fixnum         Make_Integer

/* The names of a few functions implementing primitives have been changed
 * for consistency:
 */
#define P_Setcar            P_Set_Car
#define P_Setcdr            P_Set_Cdr
#define P_With_Input        P_With_Input_From_File
#define P_With_Output       P_With_Output_To_File
#define P_Call_With_Input   P_Call_With_Input_File
#define P_Call_With_Output  P_Call_With_Output_File
#define P_Call_CC           P_Call_With_Current_Continuation
#define P_Promise_Env       P_Promise_Environment
#define P_Procedure_Env     P_Procedure_Environment
#define P_Control_Point_Env P_Control_Point_Environment
#define P_Curr_Input_Port   P_Current_Input_Port
#define P_Curr_Output_Port  P_Current_Output_Port
#define P_Env_List          P_Environment_To_List
#define P_Char_Lower_Case   P_Char_Lower_Casep
#define P_Char_Upper_Case   P_Char_Upper_Casep
#define P_Char_Alphabetic   P_Char_Alphabeticp
#define P_Char_Numeric      P_Char_Numericp
#define P_Char_Whitespace   P_Char_Whitespacep
#define P_Chr_Eq            P_Char_Eq
#define P_Chr_Less          P_Char_Less
#define P_Chr_Greater       P_Char_Greater
#define P_Chr_Eq_Less       P_Char_Eq_Less
#define P_Chr_Eq_Greater    P_Char_Eq_Greater
#define P_Chr_CI_Eq         P_Char_CI_Eq
#define P_Chr_CI_Less       P_Char_CI_Less
#define P_Chr_CI_Greater    P_Char_CI_Greater
#define P_Chr_CI_Eq_Less    P_Char_CI_Eq_Less
#define P_Chr_CI_Eq_Greater P_Char_CI_Eq_Greater
#define P_Str_Eq            P_String_Eq
#define P_Str_Less          P_String_Less
#define P_Str_Greater       P_String_Greater
#define P_Str_Eq_Less       P_String_Eq_Less
#define P_Str_Eq_Greater    P_String_Eq_Greater
#define P_Str_CI_Eq         P_String_CI_Eq
#define P_Str_CI_Less       P_String_CI_Less
#define P_Str_CI_Greater    P_String_CI_Greater
#define P_Str_CI_Eq_Less    P_String_CI_Eq_Less
#define P_Str_CI_Eq_Greater P_String_CI_Eq_Greater