guile/guile-core/libguile ports.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/10 15:31:13

Modified files:
        guile-core/libguile: ports.c 

Log message:
        

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ports.c.diff?cvsroot=OldCVS&tr1=1.142&tr2=1.143&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ports.c
diff -u guile/guile-core/libguile/ports.c:1.142 
guile/guile-core/libguile/ports.c:1.143
--- guile/guile-core/libguile/ports.c:1.142     Wed May  9 09:32:06 2001
+++ guile/guile-core/libguile/ports.c   Thu May 10 15:31:13 2001
@@ -557,7 +557,7 @@
 #define FUNC_NAME s_scm_port_revealed
 {
   port = SCM_COERCE_OUTPORT (port);
-  SCM_VALIDATE_PORT (1,port);
+  SCM_VALIDATE_OPENPORT (1,port);
   return SCM_MAKINUM (scm_revealed_count (port));
 }
 #undef FUNC_NAME
@@ -570,7 +570,7 @@
 #define FUNC_NAME s_scm_set_port_revealed_x
 {
   port = SCM_COERCE_OUTPORT (port);
-  SCM_VALIDATE_PORT (1,port);
+  SCM_VALIDATE_OPENPORT (1,port);
   SCM_VALIDATE_INUM (2,rcount);
   SCM_REVEALED (port) = SCM_INUM (rcount);
   return SCM_UNSPECIFIED;