1 /* $Id: guile-compat.h,v 1.5 2002/01/10 04:04:26 sgt Exp $ */ 2 /* 3 * Copyright (C) 1997-1999, Maciej Stachowiak and Greg J. Badros 4 * 5 * This program is free software; you can redistribute it and/or modify 6 * it under the terms of the GNU General Public License as published by 7 * the Free Software Foundation; either version 2, or (at your option) 8 * any later version. 9 * 10 * This program is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * 15 * You should have received a copy of the GNU General Public License 16 * along with this software; see the file COPYING.GPL. If not, write to 17 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, 18 * Boston, MA 02111-1307 USA 19 * 20 */ 21 22 #ifndef GUILE_COMPAT_H 23 #define GUILE_COMPAT_H 24 25 #ifdef HAVE_CONFIG_H 26 #include <config.h> 27 #endif 28 29 #ifdef __cplusplus 30 extern "C" { 31 #endif 32 33 #define DEREF_LAST_STACK scm_fluid_ref(SCM_VARIABLE_REF (scm_the_last_stack_fluid_var)) 34 35 SCM make_output_strport(char *fname); 36 extern char *safe_scm_to_stringn (SCM str, size_t *lenp); 37 38 39 #endif /* GUILE_COMPAT_H */ 40 41 /* Local Variables: */ 42 /* tab-width: 8 */ 43 /* c-basic-offset: 2 */ 44 /* End: */ 45 /* vim:ts=8:sw=2:sta 46 */ 47 48