diff options
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 07d7fd137..86705826f 100644 --- 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; } |