ocaml-binary-annot/camlp4/test/fixtures/macrotest3.ml


1
2
3
4
5
6
7
8
9
10
11

IFNDEF UNDEFINED_VARIABLE THEN
 DEFINE UNDEFINED_VARIABLE

 IFDEF UNDEFINED_VARIABLE THEN
  DEFINE SQUARE (x) = x * x ;;
  DEFINE DOUBLE_SQUARE (x) = (SQUARE x) * 2 ;;
 END
END;;

Printf.printf "%d\n" (DOUBLE_SQUARE(42)) ;;