blob: 82343821552e6620c2da72a965b0581cf1a723a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#ifndef TYPEASVALUE_SRC_PAIR_H_
#define TYPEASVALUE_SRC_PAIR_H_
#include <type_traits>
namespace tav {
namespace detail { struct pair_tag { }; }
template <
typename CAR,
typename CDR
>
struct Pair : detail::pair_tag {
typedef CAR car;
typedef CDR cdr;
typedef Pair<CAR, CDR> type;
};
template <typename Type>
using IsPair = Eval<std::is_base_of<detail::pair_tag, Type>>;
}
#endif // TYPEASVALUE_SRC_PAIR_H_
|
