Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Refactor.

  • Loading branch information...
commit 4aeca1dd546dfa046b4daade5d847fdb36b0c5a4 1 parent ecbb91f
@kr authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 gen.h
View
5 gen.h
@@ -5,10 +5,9 @@
typedef size_t * datum;
-#define INT_TAG 0x1
-#define int2datum(x) ((datum) (((x) << 1) | INT_TAG))
+#define int2datum(x) ((datum) (((x) << 1) | 1))
#define datum2int(d) (((int) (d)) >> 1)
-#define intp(x) (((uint) (x)) & INT_TAG)
+#define intp(x) (((uint) (x)) & 1)
int truep(datum d);
Please sign in to comment.
Something went wrong with that request. Please try again.