diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-30 11:42:26 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-30 11:42:26 +0000 |
commit | a6d9e5abe5b110dc30e8cf914bcb4de4d28baf43 (patch) | |
tree | d5a3679c885a17f8469801bc97897a80ae48f1d6 /libguile/ioext.c | |
parent | e9bfab50e4ec7787db05605727a06f98fe30f5b6 (diff) | |
download | guile-a6d9e5abe5b110dc30e8cf914bcb4de4d28baf43.tar.gz |
* Change a couple of functions to accept either symbols or strings only.
* Get rid of remainig uses of SCM_LENGTH etc.
Diffstat (limited to 'libguile/ioext.c')
-rw-r--r-- | libguile/ioext.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/ioext.c b/libguile/ioext.c index c6d49d7f1..9cb84560e 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -93,8 +93,8 @@ SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, char *cdelims; int num_delims; - SCM_VALIDATE_ROSTRING_COPY (1,delims,cdelims); - num_delims = SCM_ROLENGTH (delims); + SCM_VALIDATE_STRING_COPY (1, delims, cdelims); + num_delims = SCM_STRING_LENGTH (delims); SCM_VALIDATE_STRING_COPY (2,buf,cbuf); cend = SCM_STRING_LENGTH (buf); if (SCM_UNBNDP (port)) @@ -457,10 +457,10 @@ SCM_DEFINE (scm_fdopen, "fdopen", 2, 0, 0, #define FUNC_NAME s_scm_fdopen { SCM_VALIDATE_INUM (1,fdes); - SCM_VALIDATE_ROSTRING (2,modes); - SCM_COERCE_SUBSTR (modes); + SCM_VALIDATE_STRING (2, modes); + SCM_STRING_COERCE_0TERMINATION_X (modes); - return scm_fdes_to_port (SCM_INUM (fdes), SCM_ROCHARS (modes), SCM_BOOL_F); + return scm_fdes_to_port (SCM_INUM (fdes), SCM_STRING_CHARS (modes), SCM_BOOL_F); } #undef FUNC_NAME |