mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* README: using Automake 1.2d

Browse source 
* configure.in: AC_CHECK_FUNCS: add "system".
	* simpos.c (scm_system): always define: use sysmissing if not
	available.  Check for HAVE_SYSTEM instead of _Windows (does
	Windows lack system or does it have an unusable one?).
	Check for error conditions -1 and 127.  Use SCM_DEFER_INTS.
	Let the argument be optional: if not supplied, call system(NULL).
	* ports.c (scm_close_port): relax the type check from OPPORTP to
	PORTP; closing a closed port is allowed.
This commit is contained in:
Gary Houston 1997-12-07 07:02:17 +00:00
parent 8122b543c1
commit 341eaef04b
16 changed files with 468 additions and 378 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -418,7 +418,7 @@ scm_close_port (port)
port = SCM_COERCE_OUTPORT (port);
SCM_ASSERT (SCM_NIMP (port) && SCM_OPPORTP (port), port, SCM_ARG1,
SCM_ASSERT (SCM_NIMP (port) && SCM_PORTP (port), port, SCM_ARG1,
s_close_port);
if (SCM_CLOSEDP (port))
return SCM_BOOL_F;