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

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

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

revision 1.10 by mvo, Fri Nov 2 00:19:12 2001 UTC revision 1.11 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 50  Line 50 
50    
51    
52    
53    #ifdef SCM_ENABLE_ELISP
54    
55    #define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL))
56    
57    #if 0
58  SCM_API SCM scm_lisp_nil;  SCM_API SCM scm_lisp_nil;
59  SCM_API SCM scm_lisp_t;  SCM_API SCM scm_lisp_t;
60    
 #define SCM_NILP(x) (SCM_EQ_P ((x), scm_lisp_nil))  
61  #define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x))  #define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x))
62  #define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp)  #define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp)
63  #define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp)  #define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp)
# Line 68  SCM_API SCM scm_nil_cdr (SCM x); Line 72  SCM_API SCM scm_nil_cdr (SCM x);
72  SCM_API SCM scm_null (SCM x);  SCM_API SCM scm_null (SCM x);
73  SCM_API SCM scm_m_while (SCM exp, SCM env);  SCM_API SCM scm_m_while (SCM exp, SCM env);
74  SCM_API SCM scm_nil_eq (SCM x, SCM y);  SCM_API SCM scm_nil_eq (SCM x, SCM y);
75    #endif /* 0 */
76  SCM_API void scm_init_lang (void);  SCM_API void scm_init_lang (void);
77    #else  /* ! SCM_ENABLE_ELISP */
78    #define SCM_NILP(x) 0
79    #endif /* ! SCM_ENABLE_ELISP */
80    
81    #define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x))
82    
83  #endif  /* SCM_LANG_H */  #endif  /* SCM_LANG_H */
84    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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