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

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

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

revision 1.24 by mvo, Sun Nov 25 15:21:07 2001 UTC revision 1.25 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 62  Line 62 
62   * in all data structures.   * in all data structures.
63   */   */
64    
65    #ifdef SCM_ENABLE_ELISP
66    #if 0
67    
68  SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0,  SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0,
69              (SCM x, SCM y),              (SCM x, SCM y),
70              "Create a new cons cell with @var{x} as the car and @var{y} as\n"              "Create a new cons cell with @var{x} as the car and @var{y} as\n"
# Line 145  SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_t Line 148  SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_t
148  }  }
149  #undef FUNC_NAME  #undef FUNC_NAME
150    
151    #endif /* 0 */
152    
153    
154  void  void
155  scm_init_lang ()  scm_init_lang ()
156  {  {
157    #if 0
158  #ifndef SCM_MAGIC_SNARFER  #ifndef SCM_MAGIC_SNARFER
159  #include "libguile/lang.x"  #include "libguile/lang.x"
160  #endif  #endif
161    scm_make_synt ("nil-while", scm_makacro, scm_m_while);    scm_make_synt ("nil-while", scm_makacro, scm_m_while);
162    #endif
163    
164      scm_c_define ("%nil", SCM_ELISP_NIL);
165  }  }
166    
167    #endif /* SCM_ENABLE_ELISP */
168    
169  /*  /*
170    Local Variables:    Local Variables:
171    c-file-style: "gnu"    c-file-style: "gnu"

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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