diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-28 12:36:41 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-28 12:36:41 +0000 |
commit | dd85ce4758260f712d0efc806df6643aca8e3b74 (patch) | |
tree | fad1618800dd61fb9ab43ffa9584a7fcb4a9b6bb /libguile/debug.c | |
parent | 1db81cb09afe3afec94903a4f83a5e947829a58e (diff) | |
download | guile-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.c | 10 |
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 |