diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 06:39:28 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 06:39:28 +0000 |
commit | 273b7b9490b1c8a2d9bde4f7dbb0d1161593a0ed (patch) | |
tree | 982dd44787243e55b6c00e73743c8d7c12f456af /libguile/async.h | |
parent | f862488f8ad2cf94e565a4776bf5345ab1a6680c (diff) | |
download | guile-273b7b9490b1c8a2d9bde4f7dbb0d1161593a0ed.tar.gz |
* async.c, async.h: made async representation a double cell.
Diffstat (limited to 'libguile/async.h')
-rw-r--r-- | libguile/async.h | 6 |
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. */ }; |