diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 1cdc9dfac..0b9ce3558 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -27,13 +27,17 @@ #define SCM_BUILDING_DEPRECATED_CODE +#include "alist.h" #include "boolean.h" #include "bitvectors.h" #include "deprecation.h" #include "gc.h" #include "gsubr.h" +#include "procprop.h" +#include "srcprop.h" #include "srfi-4.h" #include "strings.h" +#include "symbols.h" #include "deprecated.h" @@ -569,6 +573,19 @@ scm_istr2bve (SCM str) return res; } +SCM_GLOBAL_SYMBOL (scm_sym_copy, "copy"); + +SCM +scm_make_srcprops (long line, int col, SCM filename, SCM copy, SCM alist) +{ + scm_c_issue_deprecation_warning + ("scm_make_srcprops is deprecated; use set-source-properties! instead"); + + alist = SCM_UNBNDP (copy) ? alist : scm_acons (scm_sym_copy, copy, alist); + return scm_i_make_srcprops (scm_from_long (line), scm_from_int (col), + filename, alist); +} + |