comparison of units differs

[jmid]

Consider the following program comparing two units:

  let i:int =
    (compare (print_string "") ())
  in print_int i

$ ./node_modules/bs-platform/bin/bsc.exe printcompare.ml
$ ocamlc -o ./printcompare.byte ./printcompare.ml
$ node printcompare.js
1$ ./printcompare.byte
0$

This is with BuckleScript 1.8.0 (Using OCaml4.02.3+BS )
but also confirmed on BuckleScript 1.7.4 (Using OCaml4.02.3+BS )
running under Node v6.10.3 on Mac OS X.

[jmid]

The difference operator <> observes the same (difference in representation of units?):

print_string (if (<>) () (print_string "") then "true" else "false")

yields true under BuckleScript and false with the bytecode compiler.

[bobzhang]

This is an issue in the runtime of Caml_io.output, should be an easy fix

[stale]

This issue has been automatically marked as stale because it has not had recent activity. It will be closed if no further activity occurs. Thank you for your contributions.