/[anubis]/anubis/src/guile.c
ViewVC logotype

Diff of /anubis/src/guile.c

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

revision 1.10 by gray, Sat May 10 08:58:02 2003 UTC revision 1.11 by gray, Thu Jun 19 16:47:19 2003 UTC
# Line 130  guile_load_program(char *filename) Line 130  guile_load_program(char *filename)
130  static SCM  static SCM
131  eval_catch_body(void *list)  eval_catch_body(void *list)
132  {  {
133          return scm_primitive_eval_x((SCM)list);          return scm_primitive_eval((SCM)list);
134  }  }
135    
136  static SCM  static SCM
# Line 227  list_to_args(LIST *arglist) Line 227  list_to_args(LIST *arglist)
227                  } else                  } else
228                          val = scm_makfrom0str(p);                          val = scm_makfrom0str(p);
229    
230                  SCM_SETCAR(cell, scm_list_2(scm_copy_tree(SCM_IM_QUOTE), val));                  SCM_SETCAR(cell, scm_list_2(SCM_IM_QUOTE, val));
231                                                    
232                  if (head == SCM_EOL)                  if (head == SCM_EOL)
233                          head = cell;                          head = cell;
# Line 282  guile_process_proc(LIST *arglist, MESSAG Line 282  guile_process_proc(LIST *arglist, MESSAG
282    
283          invlist = scm_append(          invlist = scm_append(
284                       SCM_LIST2(SCM_LIST3(procsym,                       SCM_LIST2(SCM_LIST3(procsym,
285                                           SCM_LIST2(scm_copy_tree(SCM_IM_QUOTE),                                           SCM_LIST2(SCM_IM_QUOTE,
286                                                     arg_hdr),                                                     arg_hdr),
287                                           SCM_LIST2(scm_copy_tree(SCM_IM_QUOTE),                                           SCM_LIST2(SCM_IM_QUOTE,
288                                                     arg_body)),                                                     arg_body)),
289                                 rest_arg));                                 rest_arg));
290          res = scm_internal_lazy_catch(SCM_BOOL_T,          res = scm_internal_lazy_catch(SCM_BOOL_T,

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