js-on-sx: user function prototype chain links Object.prototype + sets constructor
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 22s
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 22s
This commit is contained in:
@@ -1482,7 +1482,11 @@
|
||||
(else
|
||||
(let
|
||||
((p (dict)))
|
||||
(begin (dict-set! __js_proto_table__ id p) p)))))))))
|
||||
(begin
|
||||
(dict-set! p "__proto__" (get Object "prototype"))
|
||||
(dict-set! p "constructor" ctor)
|
||||
(dict-set! __js_proto_table__ id p)
|
||||
p)))))))))
|
||||
|
||||
(define
|
||||
js-reset-ctor-proto!
|
||||
|
||||
Reference in New Issue
Block a user