summaryrefslogtreecommitdiff
path: root/libguile/async.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-14 06:39:28 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-14 06:39:28 +0000
commit273b7b9490b1c8a2d9bde4f7dbb0d1161593a0ed (patch)
tree982dd44787243e55b6c00e73743c8d7c12f456af /libguile/async.h
parentf862488f8ad2cf94e565a4776bf5345ab1a6680c (diff)
downloadguile-273b7b9490b1c8a2d9bde4f7dbb0d1161593a0ed.tar.gz
* async.c, async.h: made async representation a double cell.
Diffstat (limited to 'libguile/async.h')
-rw-r--r--libguile/async.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/async.h b/libguile/async.h
index ff67c7d23..1b2981fbf 100644
--- a/libguile/async.h
+++ b/libguile/async.h
@@ -2,7 +2,7 @@
#ifndef ASYNCH
#define ASYNCH
-/* Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 96, 97, 98, 2000 Free Software Foundation, Inc.
*
* 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
@@ -52,11 +52,11 @@
#define SCM_ASYNCP(X) (SCM_NIMP(X) && (scm_tc16_async == SCM_GCTYP16 (X)))
-#define SCM_ASYNC(X) ((struct scm_async *)SCM_CDR (X))
+#define SCM_ASYNC(X) ((struct scm_async *) &SCM_CDR (X))
struct scm_async
{
- int got_it; /* needs to be delivered? */
+ scm_bits_t got_it; /* needs to be delivered? */
SCM thunk; /* the handler. */
};