From: jrm Date: Tue, 9 Feb 2010 16:48:24 +0000 (-0800) Subject: Remove strange declarations. X-Git-Tag: 20100708-Gtk~168^2~23 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef2f1217d345614126995aa26807a85238942f84;p=mit-scheme.git Remove strange declarations. --- diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm index f2ab01744..7cb7fb8a5 100644 --- 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")) (define *sf-associate* diff --git a/src/sf/pthmap.scm b/src/sf/pthmap.scm index 3361db544..aadb9a39d 100644 --- 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)) (define pathname-map/make) (define pathname-map?) diff --git a/src/sf/reduct.scm b/src/sf/reduct.scm index a3af8ba27..af3a5e1e6 100644 --- 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")) ;;;; Reductions and replacements