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

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

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

revision 1.45 by dirk, Sun Apr 20 19:18:43 2003 UTC revision 1.46 by dirk, Tue May 6 20:05:04 2003 UTC
# Line 20  Line 20 
20    
21  #include "libguile/_scm.h"  #include "libguile/_scm.h"
22  #include "libguile/eval.h"  #include "libguile/eval.h"
 #include "libguile/macros.h"  
 #include "libguile/modules.h"  
23  #include "libguile/fluids.h"  #include "libguile/fluids.h"
24    #include "libguile/modules.h"
25    
26  #include "libguile/validate.h"  #include "libguile/validate.h"
27  #include "libguile/evalext.h"  #include "libguile/evalext.h"
# Line 77  SCM_DEFINE (scm_defined_p, "defined?", 1 Line 76  SCM_DEFINE (scm_defined_p, "defined?", 1
76  }  }
77  #undef FUNC_NAME  #undef FUNC_NAME
78    
 #if (SCM_ENABLE_DEPRECATED == 1)  
   
 SCM_SYNTAX (s_undefine, "undefine", scm_makacro, scm_m_undefine);  
   
 SCM  
 scm_m_undefine (SCM x, SCM env)  
 {  
   SCM arg1 = x;  
   x = SCM_CDR (x);  
   SCM_ASSYNT (SCM_TOP_LEVEL (env), "bad placement ", s_undefine);  
   SCM_ASSYNT (SCM_CONSP (x) && SCM_NULLP (SCM_CDR (x)),  
               scm_s_expression, s_undefine);  
   x = SCM_CAR (x);  
   SCM_ASSYNT (SCM_SYMBOLP (x), scm_s_variable, s_undefine);  
   arg1 = scm_sym2var (x, scm_env_top_level (env), SCM_BOOL_F);  
   SCM_ASSYNT (!SCM_FALSEP (arg1) && !SCM_UNBNDP (SCM_VARIABLE_REF (arg1)),  
               "variable already unbound ", s_undefine);  
   SCM_VARIABLE_SET (arg1, SCM_UNDEFINED);  
 #ifdef SICP  
   return x;  
 #else  
   return SCM_UNSPECIFIED;  
 #endif  
 }  
   
 #endif  
79    
80  SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);  SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
81    
82    
83  SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,  SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
84              (SCM obj),              (SCM obj),
85              "Return #t for objects which Guile considers self-evaluating")              "Return #t for objects which Guile considers self-evaluating")

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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