summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-12-07 07:02:17 +0000
committerGary Houston <ghouston@arglist.com>1997-12-07 07:02:17 +0000
commit341eaef04b87c0c1d60dd26a22dff7ad4f67784b (patch)
treed6bac89d4de484e34cee820e56e3187ab3625f50 /libguile/ports.c
parent8122b543c1af9c7459cf80e6d052cddcd7e0576f (diff)
downloadguile-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.c2
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;