/[guile]/guile/guile-core/libguile/validate.h
ViewVC logotype

Diff of /guile/guile-core/libguile/validate.h

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

revision 1.39 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.40 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 306  Line 306 
306        } \        } \
307    } while (0)    } while (0)
308    
309  /* [low,high) */  /* [low, high) */
310  #define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \  #define SCM_VALIDATE_INUM_RANGE(pos, k, low, high) \
311    do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \    do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \
312         SCM_ASSERT_RANGE(pos,k, \         SCM_ASSERT_RANGE(pos, k, \
313                          (SCM_INUM (k) >= low && \                          (SCM_INUM (k) >= low && \
314                           SCM_INUM (k) < high)); \                           SCM_INUM (k) < high)); \
315       } while (0)       } while (0)
# Line 367  Line 367 
367      SCM_ASSERT (scm_valid_oport_value_p (port), port, pos, FUNC_NAME); \      SCM_ASSERT (scm_valid_oport_value_p (port), port, pos, FUNC_NAME); \
368    } while (0)    } while (0)
369    
370  #define SCM_VALIDATE_PRINTSTATE(pos, a) SCM_MAKE_VALIDATE(pos,a,PRINT_STATE_P)  #define SCM_VALIDATE_PRINTSTATE(pos, a) SCM_MAKE_VALIDATE(pos, a, PRINT_STATE_P)
371    
372  #define SCM_VALIDATE_SMOB(pos, obj, type) \  #define SCM_VALIDATE_SMOB(pos, obj, type) \
373    do { \    do { \
# Line 421  Line 421 
421  #define SCM_VALIDATE_OPINPORT(pos, port) \  #define SCM_VALIDATE_OPINPORT(pos, port) \
422    SCM_MAKE_VALIDATE (pos, port, OPINPORTP)    SCM_MAKE_VALIDATE (pos, port, OPINPORTP)
423    
424  #define SCM_VALIDATE_OPENPORT(pos,port) \  #define SCM_VALIDATE_OPENPORT(pos, port) \
425    do { \    do { \
426      SCM_ASSERT (SCM_PORTP (port) && SCM_OPENP (port), \      SCM_ASSERT (SCM_PORTP (port) && SCM_OPENP (port), \
427                  port, pos, FUNC_NAME); \                  port, pos, FUNC_NAME); \
# Line 445  Line 445 
445    
446  #define SCM_VALIDATE_RSTATE(pos, v) SCM_MAKE_VALIDATE (pos, v, RSTATEP)  #define SCM_VALIDATE_RSTATE(pos, v) SCM_MAKE_VALIDATE (pos, v, RSTATEP)
447    
448  #define SCM_VALIDATE_ARRAY(pos,v) \  #define SCM_VALIDATE_ARRAY(pos, v) \
449    do { \    do { \
450      SCM_ASSERT (!SCM_IMP (v) \      SCM_ASSERT (!SCM_IMP (v) \
451                  && !SCM_FALSEP (scm_array_p (v, SCM_UNDEFINED)), \                  && !SCM_FALSEP (scm_array_p (v, SCM_UNDEFINED)), \

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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