Branch: Tag:

2008-07-15

2008-07-15 09:05:07 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Oops...

Rev: src/las.c:1.429

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: las.c,v 1.428 2008/07/14 21:44:25 grubba Exp $ + || $Id: las.c,v 1.429 2008/07/15 09:05:07 grubba Exp $   */      #include "global.h"
53:      int car_is_node(node *n)   { +  if (!_CAR(n)) return 0;    switch(n->token)    {    case F_EXTERNAL:
66:    return 0;       default: -  return !!_CAR(n); +  return 1;    }   }      int cdr_is_node(node *n)   { -  +  if (!_CDR(n)) return 0;    switch(n->token)    {    case F_EXTERNAL:
85:    return 0;       default: -  return !!_CDR(n); +  return 1;    }   }   
359:   int check_tailrecursion(void)   {    int e; -  if (Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPE_USED)) { +  if (Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPE_USED) {    /* There might be a lambda around that has references to the old context    * in which case we can't reuse it with a tail-recursive call.    */