diff options
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index dc947cc39..a6ae69aa4 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -245,10 +245,7 @@ SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0, { SCM_VALIDATE_INUM (1, frame); SCM_VALIDATE_INUM (2, binding); - return SCM_PACK (SCM_UNPACK (SCM_ILOC00) - + SCM_IFRINC * SCM_INUM (frame) - + (!SCM_FALSEP (cdrp) ? SCM_ICDR : 0) - + SCM_IDINC * SCM_INUM (binding)); + SCM_MAKE_ILOC (SCM_INUM (frame), SCM_INUM (binding), !SCM_FALSEP (cdrp)); } #undef FUNC_NAME |