diff options
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/gh_eval.c | 22 | ||||
-rw-r--r-- | libguile/gh_funcs.c | 2 |
3 files changed, 7 insertions, 22 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index a1a9c9aae..d5f146209 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +1998-01-15 Mark Galassi <rosalia@nis.lanl.gov> + + * gh_eval.c (gh_eval_str): cleanup -- threw out the old + commented-out version of gh_eval_str() + Sun Jan 4 02:23:36 1998 Gary Houston <ghouston@actrix.gen.nz> * socket.c (scm_bind): free soka after use. diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c index 10cc604f4..d214d9faf 100644 --- a/libguile/gh_eval.c +++ b/libguile/gh_eval.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -49,26 +49,6 @@ typedef SCM (*gh_eval_t) (void *data, SCM jmpbuf); /* Evaluate the string; toss the value. */ -#if 0 -void -gh_eval_str (char *scheme_code) -{ - /* Create a port that reads characters from SCHEME_CODE. */ - SCM port = scm_mkstrport (SCM_MAKINUM (0), - scm_makfrom0str (scheme_code), - SCM_OPN | SCM_RDNG, - "guile_main"); - SCM form; - - /* Read expressions from that port; ignore the values. */ - while (!SCM_EOF_OBJECT_P (form = scm_read (port, SCM_BOOL_F, SCM_BOOL_F))) - scm_eval_x (form); - - /* Dispose of the port when done. (Oh icky.) */ - scm_close_port (port); -} -#endif /* 0 */ - SCM gh_eval_str (char *scheme_code) { diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c index b02997f24..179798582 100644 --- a/libguile/gh_funcs.c +++ b/libguile/gh_funcs.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by |