/[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.11 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.12 by ossau, Sun Dec 29 01:17:39 2002 UTC
# Line 54  Line 54 
54    
55  #define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL))  #define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL))
56    
 #if 0  
 SCM_API SCM scm_lisp_nil;  
 SCM_API SCM scm_lisp_t;  
   
 #define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x))  
 #define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp)  
 #define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp)  
 #define SCM_EOL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? SCM_EOL : tmp)  
 #define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_lisp_nil : tmp)  
   
   
   
 SCM_API SCM scm_nil_cons (SCM x, SCM y);  
 SCM_API SCM scm_nil_car (SCM x);  
 SCM_API SCM scm_nil_cdr (SCM x);  
 SCM_API SCM scm_null (SCM x);  
 SCM_API SCM scm_m_while (SCM exp, SCM env);  
 SCM_API SCM scm_nil_eq (SCM x, SCM y);  
 #endif /* 0 */  
57  SCM_API void scm_init_lang (void);  SCM_API void scm_init_lang (void);
58    
59  #else  /* ! SCM_ENABLE_ELISP */  #else  /* ! SCM_ENABLE_ELISP */
60    
61  #define SCM_NILP(x) 0  #define SCM_NILP(x) 0
62    
63  #endif /* ! SCM_ENABLE_ELISP */  #endif /* ! SCM_ENABLE_ELISP */
64    
65  #define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x))  #define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x))

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

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