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

* tags.h (SCM_ECONSP, SCM_NECONSP): Fix these macros to have the

Browse source 
SCM_NIMP test integrated into an || clause that I'd missed before
and was causing a segfault in the regression tests.

* symbols.h (SCM_ROUCHARS): Make cast be to (unsigned char *), not
(char *);  fixes a problem reported by the regression test
ports.test.

* ports.c: Fixed a couple of arg/number mismatches in
SCM_VALIDATE_ macros.

Now passes the (not-comprehensive) guile-modules test-suite again!
This commit is contained in:
Greg J. Badros 1999-12-17 20:11:34 +00:00
parent f172c0b71d
commit cfaba30ebd
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ports.c
View file

@ -977,7 +977,7 @@ not supplied, the current input port is used.")
if (SCM_UNBNDP (port))
port = scm_cur_inp;
else
SCM_VALIDATE_OPINPORT(1,port);
SCM_VALIDATE_OPINPORT(2,port);
c = SCM_ICHR (cobj);
@ -998,7 +998,7 @@ unread characters will be read again in last-in first-out order. If
if (SCM_UNBNDP (port))
port = scm_cur_inp;
else
SCM_VALIDATE_OPINPORT(1,port);
SCM_VALIDATE_OPINPORT(2,port);
scm_ungets (SCM_ROUCHARS (str), SCM_LENGTH (str), port);