mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

some trivial cleanup

Browse source
This commit is contained in:
Mark Galassi 1998-01-16 00:32:28 +00:00
parent 0543c9b780
commit 770827b0f0
3 changed files with 7 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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.

22
libguile/gh_eval.c
View file

@ -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)
{

2
libguile/gh_funcs.c
View file

@ -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