diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 12:13:50 +0000 |
commit | dee01b012cd5179b70a2e361ee08c364ed9f3314 (patch) | |
tree | 342478de9cb5237437a734aa88b7c9fe26533845 /libguile/load.c | |
parent | b29058ffee392969b448f8157afaf370c17a736c (diff) | |
download | guile-dee01b012cd5179b70a2e361ee08c364ed9f3314.tar.gz |
* Removed deprecated stuff.
* Some more renamings to SCM_<filename>_H.
Diffstat (limited to 'libguile/load.c')
-rw-r--r-- | libguile/load.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/libguile/load.c b/libguile/load.c index f8c9b76ec..d26f5aca8 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -470,30 +470,6 @@ scm_c_primitive_load_path (const char *filename) return scm_primitive_load_path (scm_makfrom0str (filename)); } -#if SCM_DEBUG_DEPRECATED == 0 - -/* Eval now copies source properties, so this function is no longer required. - */ - -SCM_SYMBOL (scm_end_of_file_key, "end-of-file"); - -SCM_DEFINE (scm_read_and_eval_x, "read-and-eval!", 0, 1, 0, - (SCM port), - "Read a form from @var{port} (standard input by default), and evaluate it\n" - "(memoizing it in the process) in the top-level environment. If no data\n" - "is left to be read from @var{port}, an @code{end-of-file} error is\n" - "signalled.") -#define FUNC_NAME s_scm_read_and_eval_x -{ - SCM form = scm_read (port); - if (SCM_EOF_OBJECT_P (form)) - scm_ithrow (scm_end_of_file_key, SCM_EOL, 1); - return scm_eval_x (form, scm_current_module ()); -} -#undef FUNC_NAME - -#endif - /* Information about the build environment. */ |