some metadata adjustments for let-no-escape support

ghcjs · Sep 25, 2014 · 5e11d33 · 5e11d33
1 parent 9009be2
commit 5e11d33
Show file tree

Hide file tree

Showing 4 changed files with 37 additions and 680 deletions.
diff --git a/src/gc.js b/src/gc.js
@@ -354,7 +354,7 @@ function h$follow(obj, sp) {
             }
         }
 #endif
-        if(c !== null && typeof c === 'object' && ((typeof c.m === 'number' && (c.m&3) !== mark) || (typeof c.m === 'object' && c.m !== null && typeof c.m.m === 'number' && (c.m.m&3) !== mark))) {
+        if(c !== null && c !== undefined && typeof c === 'object' && ((typeof c.m === 'number' && (c.m&3) !== mark) || (typeof c.m === 'object' && c.m !== null && typeof c.m.m === 'number' && (c.m.m&3) !== mark))) {
             var doMark = false;
             var cf = c.f;
             TRACE_GC("first accepted");