Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 14:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2017-02-24 16:53:04 -05:00
parent 19f9f1801a
commit e6f6f563d5
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
include/cyclone/types.h
View file

@ -858,6 +858,12 @@ typedef pair_type *pair;
*/
#define make_cell(n,a) make_pair(n,a,NULL);
/**
* \defgroup objects_unsafe_cxr Unsafe pair access macros
* @brief Macros for fast - but unsafe - pair access
*
*/
/**@{*/
/** Unsafely access a pair's `car` */
#define car(x) (((pair_type *) x)->pair_car)
/** Unsafely access a pair's `cdr` */
@ -890,8 +896,14 @@ typedef pair_type *pair;
#define cddadr(x) (cdr(cdr(car(cdr(x)))))
#define cdddar(x) (cdr(cdr(cdr(car(x)))))
#define cddddr(x) (cdr(cdr(cdr(cdr(x)))))
/**@}*/
// Safe versions of the above:
/**
* \defgroup objects_safe_cxr Safe pair access macros
* @brief Macros for safe pair access
*
*/
/**@{*/
#define Cyc_caar(d, x) (Cyc_car(d, Cyc_car(d, x)))
#define Cyc_cadr(d, x) (Cyc_car(d, Cyc_cdr(d, x)))
#define Cyc_cdar(d, x) (Cyc_cdr(d, Cyc_car(d, x)))
@ -920,6 +932,7 @@ typedef pair_type *pair;
#define Cyc_cddadr(d, x) (Cyc_cdr(d, Cyc_cdr(d, Cyc_car(d, Cyc_cdr(d, x)))))
#define Cyc_cdddar(d, x) (Cyc_cdr(d, Cyc_cdr(d, Cyc_cdr(d, Cyc_car(d, x)))))
#define Cyc_cddddr(d, x) (Cyc_cdr(d, Cyc_cdr(d, Cyc_cdr(d, Cyc_cdr(d, x)))))
/**@}*/
/* Closure types */