* alist.c, arbiters.c, continuations.c, debug.c, debug.h, eval.c,

[bpt/guile.git] / libguile / srcprop.c

diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 07d7fd1..8670582 100644 (file)
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -157,12 +157,12 @@ scm_make_srcprops (line, col, filename, copy, plist)
       srcprops_freelist = (scm_srcprops *) &ptr[1];
     }
   SCM_NEWCELL (ans);
-  SCM_CAR (ans) = scm_tc16_srcprops;
+  SCM_SETCAR (ans, scm_tc16_srcprops);
   ptr->pos = SRCPROPMAKPOS (line, col);
   ptr->fname = filename;
   ptr->copy = copy;
   ptr->plist = plist;
-  SCM_CDR (ans) = (SCM) ptr;
+  SCM_SETCDR (ans, (SCM) ptr);
   SCM_ALLOW_INTS;
   return ans;
 }