* removed stuff from lib directory.

scheme/ikarus.compiler.ss

@@ -1136,6 +1136,7 @@
       [(fix lhs* rhs* body) (known-value body)]
       [(seq e0 e1) (known-value e1)]
       [else #f]))
+    
   (define (same-values? x y)
     (cond
       [(constant? x)
@@ -1174,7 +1175,9 @@
              [(var-referenced lhs)
               (values (cons lhs lhs*) (cons rhs rhs*) eff*)]
              [else
-              (values lhs* rhs* (mk-seq eff* (Effect rhs)))])))]))
+              (values lhs* rhs* 
+                (mk-seq eff* 
+                  (Effect rhs)))])))]))
   (define (partition/assign-known lhs* rhs*)
     (cond
       [(null? lhs*) (values '() '() the-void)]
@@ -1225,6 +1228,7 @@
                 (make-clambda-case info (Value body))]))
            cls*)
       cp free name))
+  (define (MKEffect ctxt)
     (define (Effect x)
       (struct-case x
         [(constant) the-void]
@@ -1245,7 +1249,7 @@
         [(seq e0 e1) (mk-seq (Effect e0) (Effect e1))]
         [(clambda g cls*) the-void]
         [(primcall rator rand*) 
-       (optimize-primcall 'e rator (map Value rand*))]
+         (optimize-primcall ctxt rator (map Value rand*))]
         [(funcall rator rand*)
          (let ([rator (Value rator)])
            (cond
@@ -1254,7 +1258,7 @@
                 (struct-case v
                   [(primref op)
                    (mk-seq rator
-                    (optimize-primcall 'e op (map Value rand*)))]
+                      (optimize-primcall ctxt op (map Value rand*)))]
                   [else
                    (make-funcall rator (map Value rand*))]))]
              [else (make-funcall rator (map Value rand*))]))]
@@ -1269,6 +1273,8 @@
              (make-assign lhs (Value rhs))
              (Effect rhs))]
         [else (error who "invalid effect expression" (unparse x))]))
+    Effect)
+  (define Effect (MKEffect 'e))
   (define (Pred x)
     (struct-case x
       [(constant) x]

scheme/last-revision

@@ -1 +1 @@
-1151
+1153