summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMichael Livshin <mlivshin@bigfoot.com>2001-05-28 12:36:41 +0000
committerMichael Livshin <mlivshin@bigfoot.com>2001-05-28 12:36:41 +0000
commitdd85ce4758260f712d0efc806df6643aca8e3b74 (patch)
treefad1618800dd61fb9ab43ffa9584a7fcb4a9b6bb /libguile/debug.c
parent1db81cb09afe3afec94903a4f83a5e947829a58e (diff)
downloadguile-dd85ce4758260f712d0efc806df6643aca8e3b74.tar.gz
* strop.c (s_scm_string_capitalize_x): fix docstring quoting.
* socket.c (s_scm_inet_pton): fix docstring quoting. (s_scm_inet_ntop): ditto. * num2integral.i.c (INTEGRAL2NUM): cast to fix a warning. * hashtab.c (scm_internal_hash_fold): fix argument position in SCM_ASSERT. * environments.c (s_scm_import_environment_set_imports_x): fix argument position in SCM_ASSERT. * debug.c (s_scm_make_gloc): fix SCM packing/unpacking. (s_scm_make_iloc): ditto.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r--libguile/debug.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index efece65f7..dc47c9dbc 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -265,7 +265,7 @@ SCM_DEFINE (scm_make_gloc, "make-gloc", 1, 1, 0,
env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE);
else
SCM_VALIDATE_NULLORCONS (2,env);
- return scm_make_memoized (SCM_UNPACK (var) + scm_tc3_cons_gloc, env);
+ return scm_make_memoized (SCM_PACK (SCM_UNPACK (var) + scm_tc3_cons_gloc), env);
}
#undef FUNC_NAME
@@ -288,10 +288,10 @@ SCM_DEFINE (scm_make_iloc, "make-iloc", 3, 0, 0,
{
SCM_VALIDATE_INUM (1,frame);
SCM_VALIDATE_INUM (2,binding);
- return (SCM_ILOC00
- + SCM_IFRINC * SCM_INUM (frame)
- + (SCM_NFALSEP (cdrp) ? SCM_ICDR : 0)
- + SCM_IDINC * SCM_INUM (binding));
+ return SCM_PACK (SCM_UNPACK (SCM_ILOC00)
+ + SCM_IFRINC * SCM_INUM (frame)
+ + (SCM_NFALSEP (cdrp) ? SCM_ICDR : 0)
+ + SCM_IDINC * SCM_INUM (binding));
}
#undef FUNC_NAME