diff options
author | Gary Houston <ghouston@arglist.com> | 1997-12-07 07:02:17 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-12-07 07:02:17 +0000 |
commit | 341eaef04b87c0c1d60dd26a22dff7ad4f67784b (patch) | |
tree | d6bac89d4de484e34cee820e56e3187ab3625f50 /libguile/ports.c | |
parent | 8122b543c1af9c7459cf80e6d052cddcd7e0576f (diff) | |
download | guile-341eaef04b87c0c1d60dd26a22dff7ad4f67784b.tar.gz |
* README: using Automake 1.2d
* 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.
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 49224beb4..4cc5e8b1c 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -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; |