diff options
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 435afb559..1ce183094 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -145,7 +145,7 @@ unmark_port (SCM port) SCM stream, string; port_mark_p = SCM_GC8MARKP (port); SCM_CLRGC8MARK (port); - stream = SCM_STREAM (port); + stream = SCM_PACK (SCM_STREAM (port)); stream_mark_p = SCM_GCMARKP (stream); SCM_CLRGCMARK (stream); string = SCM_CDR (stream); @@ -157,7 +157,7 @@ unmark_port (SCM port) static void remark_port (SCM port) { - SCM stream = SCM_STREAM (port); + SCM stream = SCM_PACK (SCM_STREAM (port)); SCM string = SCM_CDR (stream); if (string_mark_p) SCM_SETGC8MARK (string); if (stream_mark_p) SCM_SETGCMARK (stream); |