mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 02:00:26 +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

8
libguile/fports.c
View file

@ -193,10 +193,12 @@ scm_open_file (filename, modes)
if (SCM_SUBSTRP (modes))
modes = scm_makfromstr (SCM_ROCHARS (modes), SCM_ROLENGTH (modes), 0);
port = scm_mkfile (SCM_ROCHARS (filename), SCM_ROCHARS (modes));
/* Force the compiler to keep filename and modes alive:
*/
if (port == SCM_BOOL_F)
if (port == SCM_BOOL_F) {
SCM_SYSERROR (s_open_file);
/* Force the compiler to keep filename and modes alive. */
scm_cons (filename, modes);
}
return port;
}