/[gcl]/gcl/o/macros.c
ViewVC logotype

Diff of /gcl/o/macros.c

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

revision 1.7 by camm, Thu Nov 6 16:08:09 2003 UTC revision 1.8 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 150  macro_def(object form) Line 150  macro_def(object form)
150  {  {
151          object head, fd;          object head, fd;
152    
153          if (type_of(form) != t_cons)          if (!consp(form))
154                  return(Cnil);                  return(Cnil);
155          head = MMcar(form);          head = MMcar(form);
156          if (type_of(head) != t_symbol)          if (type_of(head) != t_symbol)
# Line 266  macro_expand(object form) Line 266  macro_expand(object form)
266             immediately.  Macro definitions are superseded by special-             immediately.  Macro definitions are superseded by special-
267             form definitions.             form definitions.
268          */          */
269          if (type_of(form) != t_cons)          if (!consp(form))
270                  return(form);                  return(form);
271          head = MMcar(form);          head = MMcar(form);
272          if (type_of(head) != t_symbol)          if (type_of(head) != t_symbol)
# Line 303  LOOP: Line 303  LOOP:
303          /* Check if the expanded form is again a macro form.  If not,          /* Check if the expanded form is again a macro form.  If not,
304             reset the stack and return.             reset the stack and return.
305          */          */
306          if (type_of(form) != t_cons)          if (!consp(form))
307                  goto END;                  goto END;
308          head = MMcar(form);          head = MMcar(form);
309          if (type_of(head) != t_symbol)          if (type_of(head) != t_symbol)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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