* deleting old list-based set representation.

2007-03-10 21:01:41 -05:00 · 2007-03-10 21:01:41 -05:00 · 3cb18c56e9
parent fa94d2f6a1
commit 3cb18c56e9
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libaltcogen.ss
+++ b/src/libaltcogen.ss
@ -1899,7 +1899,7 @@
      (or (ormap frm-conf (set->list fs))
          (ormap var-conf (set->list vs))))
    (define (assign x)
-      (let (#;[x (vector-ref varvec xi)])
+      (let ()
        (define (assign-any)
          (let ([frms (var-frm-conf x)]
                [vars (var-var-conf x)])