Merge branch 'stable-2.0'
authorMark H Weaver <mhw@netris.org>
Fri, 13 Dec 2013 04:44:46 +0000 (23:44 -0500)
committerMark H Weaver <mhw@netris.org>
Fri, 13 Dec 2013 04:44:46 +0000 (23:44 -0500)
Conflicts:
libguile/pairs.c
libguile/vm.c
test-suite/tests/control.test

1  2 
configure.ac
libguile/pairs.c

diff --cc configure.ac
Simple merge
@@@ -1,4 -1,5 +1,5 @@@
- /* Copyright (C) 1995,1996,2000,2001, 2004, 2005, 2006, 2008, 2009, 2011, 2012 Free Software Foundation, Inc.
+ /* Copyright (C) 1995,1996,2000,2001, 2004, 2005, 2006, 2008, 2009,
 - *   2011, 2013 Free Software Foundation, Inc.
++ *   2011, 2012, 2013 Free Software Foundation, Inc.
   * 
   * This library is free software; you can redistribute it and/or
   * modify it under the terms of the GNU Lesser General Public License
@@@ -131,7 -144,22 +132,8 @@@ SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 
    return tree
  
  
 -SCM_DEFINE (scm_cdr, "cdr", 1, 0, 0, (SCM x), "")
 -#define FUNC_NAME s_scm_cdr
 -{
 -  CHASE_PAIRS (x, "cdr", 0x02); /* 00000010 */
 -}
 -#undef FUNC_NAME
 -
 -SCM_DEFINE (scm_car, "car", 1, 0, 0, (SCM x), "")
 -#define FUNC_NAME s_scm_car
 -{
 -  CHASE_PAIRS (x, "car", 0x03); /* 00000011 */
 -}
 -#undef FUNC_NAME
 -
  SCM_DEFINE (scm_cddr, "cddr", 1, 0, 0, (SCM x), "")
+ #define FUNC_NAME s_scm_cddr
  {
    CHASE_PAIRS (x, "cddr", 0x0a); /* 00001010 */
  }