/[guile]/guile/guile-core/libguile/async.c
ViewVC logotype

Diff of /guile/guile-core/libguile/async.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by ossau, Sat Oct 19 16:33:25 2002 UTC revision 1.71 by mvo, Sun Oct 20 22:59:01 2002 UTC
# Line 106  static scm_t_bits tc16_async; Line 106  static scm_t_bits tc16_async;
106  /* cmm: this has SCM_ prefix because SCM_MAKE_VALIDATE expects it.  /* cmm: this has SCM_ prefix because SCM_MAKE_VALIDATE expects it.
107     this is ugly.  */     this is ugly.  */
108  #define SCM_ASYNCP(X)           SCM_TYP16_PREDICATE (tc16_async, X)  #define SCM_ASYNCP(X)           SCM_TYP16_PREDICATE (tc16_async, X)
109  #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")
110    
111  #define ASYNC_GOT_IT(X)        (SCM_CELL_WORD_0 (X) >> 16)  #define ASYNC_GOT_IT(X)        (SCM_CELL_WORD_0 (X) >> 16)
112  #define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16)))  #define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16)))

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26