Remove strange declarations.

diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm
index f2ab01744fa0ec15b0643c0ec1d51f4eb629bfb6..7cb7fb8a5c51281884a90e6dc2356b51c21d1a30 100644 (file)
--- a/src/sf/cgen.scm
+++ b/src/sf/cgen.scm
@@ -27,9 +27,6 @@ USA.
 ;;; package: (scode-optimizer cgen)
 
 (declare (usual-integrations)
-        (automagic-integrations)
-        (open-block-optimizations)
-        (eta-substitution)
         (integrate-external "object"))
 \f
 (define *sf-associate*

diff --git a/src/sf/pthmap.scm b/src/sf/pthmap.scm
index 3361db544770885d492a794405bd0ce15c497a03..aadb9a39da60f917a5d7ba48e773f6884924337d 100644 (file)
--- a/src/sf/pthmap.scm
+++ b/src/sf/pthmap.scm
@@ -24,11 +24,9 @@ USA.
 |#
 
 ;;;; Pathname Maps
+;;; package: (scode-optimizer)
 
-(declare (usual-integrations)
-        (automagic-integrations)
-        (open-block-optimizations)
-        (eta-substitution))
+(declare (usual-integrations))
 \f
 (define pathname-map/make)
 (define pathname-map?)

diff --git a/src/sf/reduct.scm b/src/sf/reduct.scm
index a3af8ba276f2cb271100ebc4ea9df2b45f10577b..af3a5e1e6c44664ee33ba980e050bab6158ca080 100644 (file)
--- a/src/sf/reduct.scm
+++ b/src/sf/reduct.scm
@@ -27,9 +27,6 @@ USA.
 ;;; package: (scode-optimizer expansion)
 
 (declare (usual-integrations)
-        (automagic-integrations)
-        (open-block-optimizations)
-        (eta-substitution)
         (integrate-external "object"))
 \f
 ;;;; Reductions and replacements