8 lines
246 B
C
8 lines
246 B
C
|
/* Nats are represented as unstructured blocks with tag Nat_tag. */
|
||
|
|
|
||
|
|
#define Nat_tag Abstract_tag /* works OK with equal because no other
|
||
|
|
object uses that tag yet. */
|
||
|
|
|
||
|
|
#define Bignum_val(nat) ((BigNum) nat)
|
||
|
|
|