860 - turns out renaming the arg in keep fixes the problem

What's the right infrastructure to debug this problem? I have no idea.

Author: akkartik

004cell.cc

@@ -399,12 +399,7 @@ Cell* get(Cell* t, Cell* k) {
                                     os << "{";
                                     for (CellMap::iterator p = t->table.begin(); p != t->table.end(); ++p) {
                                       if (p->second)
-                                        if ((Cell*)p->first == newSym(L"$wartScopeBelongsTo")
-                                            && isCons(car(p->second)))
-                                          os << car(car(p->second)) << ": ";
-                                        else if ((Cell*)p->first == newSym(L"$wartScopeBelongsTo"))
-                                          os << car(p->second) << ": ";
-                                        else if ((Cell*)p->first == newSym(L"seq"))
+                                        if ((Cell*)p->first == newSym(L"seq"))
                                           os << (Cell*)p->first << ":" << p->second << ", ";
                                         else
                                           os << (Cell*)p->first << ", ";

008eval.cc

@@ -296,7 +296,6 @@ Cell* eval(Cell* expr) {
         newCons(calleeEnv(fn), currLexicalScopes.top()));
   // now bind its params to args in the new environment
   newLexicalScope();
-  addLexicalBinding(L"$wartScopeBelongsTo", mkref(expr));
   bindArgs(sig(fn), evaldArgs);
 
   // eval all forms in body, save result of final form

020.test

@@ -170,9 +170,6 @@
  :valueof (rem no '(1 2 nil 4 nil))
  :should be '(1 2 4))
 
-;? (prn:rem (fn(_) dumpScope. prn._ ~odd?._) '(11 12 13))
-(prn:keep (fn(_) dumpScope. prn._ odd?._) '(11 12 13))
-
 (test "keep works"
  :valueof (keep odd? '(11 12 13))
  :should be '(11 13))

020.wart

@@ -139,8 +139,8 @@ def rem(f seq)
       (rem f cdr.seq)
       (cons car.seq (rem f cdr.seq))
 
-def keep(f seq)
-  (rem ~f seq)
+def keep(f seq2)
+  (rem ~f seq2)