wip

Author: cometkim

jscomp/runtime/caml_external_polyfill.res

@@ -22,30 +22,5 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
 
-type global
-let getGlobalThis: (. unit) => global = %raw(` function(){
-  if (typeof globalThis !== 'undefined') return globalThis;
-	if (typeof self !== 'undefined') return self;
-	if (typeof window !== 'undefined') return window;
-	if (typeof global !== 'undefined') return global;
-	if (typeof this !== 'undefined') return this;
-	throw new Error('Unable to locate global this');
-}`)
-
 type dyn
-let resolve: (. string) => dyn = %raw(`function(s){
-  var myGlobal = getGlobalThis();
-  if (myGlobal[s] === undefined){
-    throw new Error(s + " not polyfilled by ReScript yet\n")
-  }
-  return myGlobal[s]
-}`)
-
-/* FIXME: it does not have to global states */
-type fn
-
-let register: (string, fn) => unit = %raw(` function(s,fn){
-  var myGlobal = getGlobalThis();
-  myGlobal[s] = fn 
-  return 0
-}`)
+let resolve: string => dyn = %raw(`(s) => globalThis[s]`)