summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index b59c9ffa8..bb49509b6 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -284,8 +284,8 @@ GUILE_PROC (scm_make_iloc, "make-iloc", 3, 0, 0,
"")
#define FUNC_NAME s_scm_make_iloc
{
- SCM_VALIDATE_INT(1,frame);
- SCM_VALIDATE_INT(2,binding);
+ SCM_VALIDATE_INUM(1,frame);
+ SCM_VALIDATE_INUM(2,binding);
return (SCM_ILOC00
+ SCM_IFRINC * SCM_INUM (frame)
+ (SCM_NFALSEP (cdrp) ? SCM_ICDR : 0)