summaryrefslogtreecommitdiff
path: root/libguile/gh_eval.c
diff options
context:
space:
mode:
authorMark Galassi <mark+savannah@galassi.org>1998-01-16 00:32:28 +0000
committerMark Galassi <mark+savannah@galassi.org>1998-01-16 00:32:28 +0000
commit770827b0f017fc90d8c0fbab650c23c947963e4c (patch)
tree82663ea44b1f785b68e9b8971707d204e608d3b6 /libguile/gh_eval.c
parent0543c9b78072bc28a3dd094bce91753d11bb2f6c (diff)
downloadguile-770827b0f017fc90d8c0fbab650c23c947963e4c.tar.gz
some trivial cleanup
Diffstat (limited to 'libguile/gh_eval.c')
-rw-r--r--libguile/gh_eval.c22
1 files changed, 1 insertions, 21 deletions
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)
{