Commit e719abe3 authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Fix a typo in a constant.

parent 4401b3b6
#!/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"
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment