summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1996-09-16 03:32:26 +0000
committerGary Houston <ghouston@arglist.com>1996-09-16 03:32:26 +0000
commit19639113d1bf228e30abe10b64f113adcb930e64 (patch)
tree0230d298fa39535e8e4a8feeb297f9e9cf27af64 /libguile/gc.c
parent52859adfb96a7e0d23d36856d1189688f16b1863 (diff)
downloadguile-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.c6
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;