diff options
author | Mark Galassi <mark+savannah@galassi.org> | 1998-01-16 00:32:28 +0000 |
---|---|---|
committer | Mark Galassi <mark+savannah@galassi.org> | 1998-01-16 00:32:28 +0000 |
commit | 770827b0f017fc90d8c0fbab650c23c947963e4c (patch) | |
tree | 82663ea44b1f785b68e9b8971707d204e608d3b6 /libguile/gh_eval.c | |
parent | 0543c9b78072bc28a3dd094bce91753d11bb2f6c (diff) | |
download | guile-770827b0f017fc90d8c0fbab650c23c947963e4c.tar.gz |
some trivial cleanup
Diffstat (limited to 'libguile/gh_eval.c')
-rw-r--r-- | libguile/gh_eval.c | 22 |
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) { |