Fix a typo in a constant.

tests/js/build.sh

 #!/bin/sh
 
 RUNTIME=../../cduce_js_runtime.bytecode
-js_of_ocaml -o main.js --extern-fs -I . --file=main.cd +nat.js +toplevel.js +weak.js "$RUNTIME"
+js_of_ocaml -o main.js --extern-fs -I . --file=main.cdo --file=main.cd  +nat.js +toplevel.js +weak.js "$RUNTIME"

types/bool.ml

@@ -86,7 +86,7 @@ struct
 	X.check x; check p; check i; check n
 
   let atom x =
-    let h = (X.hash x + 17) land 0x3fffffffff in (* partial evaluation of compute_hash... *)
+    let h = (X.hash x + 17) land 0x3fffffff in (* partial evaluation of compute_hash... *)
     Split (h, x,True,False,False)