summaryrefslogtreecommitdiff
path: root/ocaml-binary-annot/camlp4/test/fixtures/macrotest2.ml
blob: cb2d4cff4de985c6600c1893058a1e21756a83e2 (plain)
1
2
3
4
5
6
IFNDEF UNDEFINED_VARIABLE THEN
 DEFINE SQUARE (x) = x * x ;;
 DEFINE DOUBLE_SQUARE (x) = (SQUARE x) * 2 ;;
END;;

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