summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/gh_eval.c22
-rw-r--r--libguile/gh_funcs.c2
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