summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-25 11:06:33 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-25 11:06:33 +0000
commit13dcb66612f195f93e6529a25aa21376215a89c6 (patch)
tree4421321f98a48a00279db6c55f1b836cb4fea36c /libguile/debug.h
parent5f5dc9296639c2cea89c796ab11efa5cacb54a3c (diff)
downloadguile-13dcb66612f195f93e6529a25aa21376215a89c6.tar.gz
* Fix signedness plus some minor improvements.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r--libguile/debug.h14
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: