summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-20 22:59:01 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-20 22:59:01 +0000
commit6182ceacb46a4892d00402cf2e3f0e8aa03bbb92 (patch)
tree55b72240ba1129e8ec2ec767797d709c05113bab /libguile/async.c
parenta7785f36d42d15b146f1f2fdf1547fd58d44c1a9 (diff)
downloadguile-6182ceacb46a4892d00402cf2e3f0e8aa03bbb92.tar.gz
(SCM_MAKE_VALIDATE_MSG): New. Use it instead of SCM_MAKE_VALIDATE in
lots of places to gove better error messages. Thanks to Bill Schottstaedt!
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 7db38d936..48f54c59b 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -106,7 +106,7 @@ static scm_t_bits tc16_async;
/* cmm: this has SCM_ prefix because SCM_MAKE_VALIDATE expects it.
this is ugly. */
#define SCM_ASYNCP(X) SCM_TYP16_PREDICATE (tc16_async, X)
-#define VALIDATE_ASYNC(pos, a) SCM_MAKE_VALIDATE(pos, a, ASYNCP)
+#define VALIDATE_ASYNC(pos, a) SCM_MAKE_VALIDATE_MSG(pos, a, ASYNCP, "user async")
#define ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16)
#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16)))