/**
 *  payloads/cons.h
 *
 *  A cons cell.
 *
 *  (c) 2026 Simon Brooke <simon@journeyman.cc>
 *  Licensed under GPL version 2.0, or, at your option, any later version.
 */

#ifndef __psse_payloads_cons_h
#define __psse_payloads_cons_h
#include <stdbool.h>

#include "memory/pointer.h"

#define CONS_SIZE_CLASS 2

/**
 * @brief A cons cell.
 * 
 */
struct cons_payload {
  /** Contents of the Address Register, naturally. */
    struct pso_pointer car;
  /** Contents of the Decrement Register, naturally. */
    struct pso_pointer cdr;
};

struct pso_pointer c_car( struct pso_pointer cons );

struct pso_pointer c_cdr( struct pso_pointer cons );

struct pso_pointer c_cons( struct pso_pointer car, struct pso_pointer cdr );

struct pso_pointer destroy_cons( struct pso_pointer fp,
                                 struct pso_pointer env );

#endif