diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-25 11:06:33 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-25 11:06:33 +0000 |
commit | 13dcb66612f195f93e6529a25aa21376215a89c6 (patch) | |
tree | 4421321f98a48a00279db6c55f1b836cb4fea36c /libguile/debug.h | |
parent | 5f5dc9296639c2cea89c796ab11efa5cacb54a3c (diff) | |
download | guile-13dcb66612f195f93e6529a25aa21376215a89c6.tar.gz |
* Fix signedness plus some minor improvements.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 10a0cf69c..16d09510a 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -1,8 +1,8 @@ /* classes: h_files */ -#ifndef DEBUGH -#define DEBUGH -/* Copyright (C) 1995,1996,1998, 1999, 2000 Free Software Foundation +#ifndef SCM_DEBUG_H +#define SCM_DEBUG_H +/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -172,8 +172,10 @@ extern scm_t_debug_frame *scm_last_debug_frame; extern scm_t_bits scm_tc16_debugobj; -#define SCM_DEBUGOBJP(x) SCM_TYP16_PREDICATE (scm_tc16_debugobj, x) -#define SCM_DEBUGOBJ_FRAME(x) SCM_CELL_WORD_1 (x) +#define SCM_DEBUGOBJP(x) \ + SCM_TYP16_PREDICATE (scm_tc16_debugobj, x) +#define SCM_DEBUGOBJ_FRAME(x) \ + ((scm_t_debug_frame *) SCM_CELL_WORD_1 (x)) #define SCM_SET_DEBUGOBJ_FRAME(x, f) SCM_SET_CELL_WORD_1 (x, f) /* {Memoized Source} @@ -217,7 +219,7 @@ extern SCM scm_proc_to_mem (SCM obj); extern SCM scm_debug_hang (SCM obj); #endif /*GUILE_DEBUG*/ -#endif /* DEBUGH */ +#endif /* SCM_DEBUG_H */ /* Local Variables: |