pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
2008-10-12
2008-10-12 09:36:16 by Martin Stjernholm <mast@lysator.liu.se>
c919c99656e3d5f4ed96da48fc3d92618762eab1 (
9
lines) (+
4
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Restored car_is_node and cdr_is_node again be valgrind friendly.
Rev: src/las.c:1.435
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.
434
2008/
08
/
17
16
:
22
:
41
mast Exp $
+
|| $Id: las.c,v 1.
435
2008/
10
/
12
09
:
36
:
16
mast Exp $
*/ #include "global.h"
53:
int car_is_node(node *n) {
-
if (!_CAR(n)) return 0;
+
switch(n->token) { case F_EXTERNAL:
67:
return 0; default:
-
return
1
;
+
return
!!_CAR(n)
;
} } int cdr_is_node(node *n) {
-
if (!_CDR(n)) return 0;
+
switch(n->token) { case F_EXTERNAL:
87:
return 0; default:
-
return
1
;
+
return
!!_CDR(n)
;
} }