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

a few fixups to primitive functions

Browse source
This commit is contained in:
Gary Houston 1996-08-04 22:32:07 +00:00
parent 2e18892a89
commit 8b13c6b392
6 changed files with 64 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/ports.c
View file

@ -438,9 +438,8 @@ scm_pt_member (member)
#endif
/* Find a port in the table and return its revealed count. Return -1
* if the port isn't in the table (should not happen). Also used by
* the garbage collector.
/* Find a port in the table and return its revealed count.
Also used by the garbage collector.
*/
#ifdef __STDC__
int
@ -468,14 +467,8 @@ scm_port_revealed (port)
SCM port;
#endif
{
int result;
SCM_ASSERT (SCM_NIMP (port) && SCM_PORTP (port), port, SCM_ARG1, s_port_revealed);
if ((result = scm_revealed_count (port)) == -1)
return SCM_BOOL_F;
else
return SCM_MAKINUM (result);
return SCM_MAKINUM (scm_revealed_count (port));
}
/* Set the revealed count for a port. */
@ -495,7 +488,7 @@ scm_set_port_revealed_x (port, rcount)
SCM_DEFER_INTS;
SCM_REVEALED (port) = SCM_INUM (rcount);
SCM_ALLOW_INTS;
return SCM_BOOL_F;
return SCM_UNSPECIFIED;
}
/* scm_close_port