diff options
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index 0e5408692..9a99d0c9e 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -719,7 +719,7 @@ scm_sys_opendir (dirname) SCM_SYSCALL (ds = opendir (SCM_CHARS (dirname))); if (ds == NULL) scm_syserror (s_sys_opendir); - SCM_CAR (dir) = scm_tc16_dir | SCM_OPN; + SCM_SETCAR (dir, scm_tc16_dir | SCM_OPN); SCM_SETCDR (dir, ds); SCM_ALLOW_INTS; return dir; @@ -777,7 +777,7 @@ scm_sys_closedir (port) SCM_SYSCALL (sts = closedir ((DIR *) SCM_CDR (port))); if (sts != 0) scm_syserror (s_sys_closedir); - SCM_CAR (port) = scm_tc16_dir; + SCM_SETCAR (port, scm_tc16_dir); SCM_ALLOW_INTS; return SCM_UNSPECIFIED; } |