/*
 * Scheme 9 from Empty Space, Refactored
 * By Nils M Holm, 2007-2016
 * In the public domain
 *
 * Interface for extension procedures.
 */

#define BOL T_BOOLEAN  
#define CHR T_CHAR     
#define INP T_INPUT_PORT
#define INT T_INTEGER  
#define LST T_LIST     
#define OUP T_OUTPUT_PORT
#define PAI T_PAIR     
#define FUN T_FUNCTION 
#define REA T_REAL     
#define STR T_STRING   
#define SYM T_SYMBOL   
#define VEC T_VECTOR   
#define ___ T_ANY

void add_primitives(char *name, S9_PRIM *p);
cell error(char *msg, cell expr);
cell integer_value(char *src, cell x);
