From 24aad77da3e3c2e411642cdb08fffaaa31a0b1cb Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 8 Jul 2010 10:45:04 -0400 Subject: [PATCH] Moved Typed Scheme's optimizer to its own subdirectory. --- collects/meta/props | 2 +- .../{private/optimize.rkt => optimizer/optimizer.rkt} | 0 collects/typed-scheme/typed-scheme.rkt | 3 ++- collects/typed-scheme/utils/utils.rkt | 1 + 4 files changed, 4 insertions(+), 2 deletions(-) rename collects/typed-scheme/{private/optimize.rkt => optimizer/optimizer.rkt} (100%) diff --git a/collects/meta/props b/collects/meta/props index c2a72186d1..cc6f9fcd35 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1916,7 +1916,7 @@ path/s is either such a string or a list of them. "collects/typed/rackunit" responsible (jay) "collects/typed/rackunit/gui.rkt" drdr:command-line (gracket "-t" *) "collects/typed-scheme" responsible (samth) -"collects/typed-scheme/private/optimize.rkt" responsible (stamourv) +"collects/typed-scheme/optimizer" responsible (stamourv) "collects/unstable" responsible (jay samth cce ryanc) "collects/unstable/byte-counting-port.rkt" responsible (jay) "collects/unstable/debug.rkt" responsible (samth) diff --git a/collects/typed-scheme/private/optimize.rkt b/collects/typed-scheme/optimizer/optimizer.rkt similarity index 100% rename from collects/typed-scheme/private/optimize.rkt rename to collects/typed-scheme/optimizer/optimizer.rkt diff --git a/collects/typed-scheme/typed-scheme.rkt b/collects/typed-scheme/typed-scheme.rkt index 15c9d8173f..9c2461220b 100644 --- a/collects/typed-scheme/typed-scheme.rkt +++ b/collects/typed-scheme/typed-scheme.rkt @@ -5,7 +5,8 @@ (for-syntax (except-in syntax/parse id) racket/match unstable/syntax racket/base unstable/match - (private type-contract optimize) + (private type-contract) + (optimizer optimizer) (types utils convenience) (typecheck typechecker provide-handling tc-toplevel) (env type-name-env type-alias-env) diff --git a/collects/typed-scheme/utils/utils.rkt b/collects/typed-scheme/utils/utils.rkt index ad4f5e24cd..afed7b5524 100644 --- a/collects/typed-scheme/utils/utils.rkt +++ b/collects/typed-scheme/utils/utils.rkt @@ -83,6 +83,7 @@ at least theoretically. (define-requirer env env-out) (define-requirer private private-out) (define-requirer types types-out) +(define-requirer optimizer optimizer-out) ;; run `h' last, but drop its return value (define-syntax-rule (reverse-begin h . forms) (begin0 (begin . forms) h))