diff options
author | Gary Houston <ghouston@arglist.com> | 1996-09-16 03:32:26 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-09-16 03:32:26 +0000 |
commit | 19639113d1bf228e30abe10b64f113adcb930e64 (patch) | |
tree | 0230d298fa39535e8e4a8feeb297f9e9cf27af64 /libguile/gc.c | |
parent | 52859adfb96a7e0d23d36856d1189688f16b1863 (diff) | |
download | guile-19639113d1bf228e30abe10b64f113adcb930e64.tar.gz |
* ports.h (scm_port_table): remove file_name member for now, it seems
undesirable.
* fports.c (scm_open_file): don't set file_name in PTAB.
(prinfport): don't use file_name in PTAB.
* ioext.c (scm_sys_duplicate_port): don't set file_name in PTAB.
* ports.c (scm_add_to_port_table): don't intialize file_name.
(scm_port_file_name): remove for now.
* gc.c (scm_gc_mark): don't mark PTAB file_name.
* fports.h (scm_mkfile): prototype deleted.
* fports.c (scm_mkfile): merged into scm_open_file to simplify.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index a9125e96c..a9022bd84 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -677,8 +677,10 @@ gc_mark_nimp: goto def; if (SCM_GC8MARKP (ptr)) break; - if (SCM_PTAB_ENTRY(ptr)) - scm_gc_mark (SCM_PTAB_ENTRY(ptr)->file_name); + /* + if (SCM_PTAB_ENTRY(ptr)) + scm_gc_mark (SCM_PTAB_ENTRY(ptr)->file_name); + */ ptr = (scm_ptobs[i].mark) (ptr); goto gc_mark_loop; break; |