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

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

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

revision 1.301 by dirk, Sun Apr 27 12:06:48 2003 UTC revision 1.302 by dirk, Mon Apr 28 06:05:10 2003 UTC
# Line 1090  scm_m_at_call_with_values (SCM xorig, SC Line 1090  scm_m_at_call_with_values (SCM xorig, SC
1090  }  }
1091    
1092    
1093  SCM_SYNTAX (s_atdispatch, "@dispatch", scm_makmmacro, scm_m_atdispatch);  static const char* s_atdispatch = "@dispatch";
   
1094  SCM_SYMBOL (sym_atdispatch, s_atdispatch);  SCM_SYMBOL (sym_atdispatch, s_atdispatch);
1095    
1096    /* @slot-dispatch is bound privately in the (oop goops) module from goops.c.
1097     * As soon as the module system allows us to more freely create bindings in
1098     * arbitrary modules during the startup phase, the code from goops.c should be
1099     * moved here.  */
1100  SCM  SCM
1101  scm_m_atdispatch (SCM xorig, SCM env)  scm_m_atdispatch (SCM xorig, SCM env)
1102  #define FUNC_NAME s_atdispatch  #define FUNC_NAME s_atdispatch
# Line 1152  scm_m_generalized_set_x (SCM xorig, SCM Line 1155  scm_m_generalized_set_x (SCM xorig, SCM
1155  }  }
1156    
1157    
1158  SCM_SYNTAX (s_atslot_ref, "@slot-ref", scm_makmmacro, scm_m_atslot_ref);  static const char* s_atslot_ref = "@slot-ref";
1159    
1160    /* @slot-ref is bound privately in the (oop goops) module from goops.c.  As
1161     * soon as the module system allows us to more freely create bindings in
1162     * arbitrary modules during the startup phase, the code from goops.c should be
1163     * moved here.  */
1164  SCM  SCM
1165  scm_m_atslot_ref (SCM xorig, SCM env SCM_UNUSED)  scm_m_atslot_ref (SCM xorig, SCM env SCM_UNUSED)
1166  #define FUNC_NAME s_atslot_ref  #define FUNC_NAME s_atslot_ref
# Line 1166  scm_m_atslot_ref (SCM xorig, SCM env SCM Line 1173  scm_m_atslot_ref (SCM xorig, SCM env SCM
1173  #undef FUNC_NAME  #undef FUNC_NAME
1174    
1175    
1176  SCM_SYNTAX (s_atslot_set_x, "@slot-set!", scm_makmmacro, scm_m_atslot_set_x);  static const char* s_atslot_set_x = "@slot-set!";
1177    
1178    /* @slot-set! is bound privately in the (oop goops) module from goops.c.  As
1179     * soon as the module system allows us to more freely create bindings in
1180     * arbitrary modules during the startup phase, the code from goops.c should be
1181     * moved here.  */
1182  SCM  SCM
1183  scm_m_atslot_set_x (SCM xorig, SCM env SCM_UNUSED)  scm_m_atslot_set_x (SCM xorig, SCM env SCM_UNUSED)
1184  #define FUNC_NAME s_atslot_set_x  #define FUNC_NAME s_atslot_set_x

Legend:
Removed from v.1.301  
changed lines
  Added in v.1.302

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