From 4f8a76a7a93e89abcda6fb4f3626117dd64cce0c Mon Sep 17 00:00:00 2001 From: Hugo Heuzard Date: Sun, 14 Jul 2019 11:55:20 +0800 Subject: [PATCH] Runtime: fix Obj.tag --- runtime/stdlib.js | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/runtime/stdlib.js b/runtime/stdlib.js index 0f881659af..6797f58d1f 100644 --- a/runtime/stdlib.js +++ b/runtime/stdlib.js @@ -214,7 +214,7 @@ function caml_obj_is_block (x) { return +(x instanceof Array); } //Provides: caml_obj_tag //Requires: MlBytes -function caml_obj_tag (x) { return (x instanceof Array)?x[0]:(x instanceof MlBytes)?252:1000; } +function caml_obj_tag (x) { return (x instanceof Array)?x[0]:(x instanceof MlBytes)?252:(x instanceof joo_global_object.Function)?247:1000; } //Provides: caml_obj_set_tag (mutable, const) function caml_obj_set_tag (x, tag) { x[0] = tag; return 0; } //Provides: caml_obj_block const (const,const)