From bb9671f27b865bd3be50536bddac42d5ce7b5853 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 13 Mar 2008 04:16:02 +0000 Subject: [PATCH] remove subtract-out svn: r8962 --- collects/scheme/provide.ss | 2 ++ collects/scribblings/reference/syntax.scrbl | 2 ++ 2 files changed, 4 insertions(+) diff --git a/collects/scheme/provide.ss b/collects/scheme/provide.ss index 3351563f7e..9b5b212bf6 100644 --- a/collects/scheme/provide.ss +++ b/collects/scheme/provide.ss @@ -14,6 +14,7 @@ (regexp-match? rx (symbol->string (export-out-sym e)))) (expand-export #'spec modes)))])))) +#| Cute, and symmetric to subtract-in, but useless (provide subtract-out) (define-syntax subtract-out (make-provide-transformer @@ -26,3 +27,4 @@ (apply append subs))]) (filter (lambda (i) (not (memq (export-out-sym i) subs))) (expand-export #'spec modes)))])))) +|# diff --git a/collects/scribblings/reference/syntax.scrbl b/collects/scribblings/reference/syntax.scrbl index cbac85aae5..01c145a116 100644 --- a/collects/scribblings/reference/syntax.scrbl +++ b/collects/scribblings/reference/syntax.scrbl @@ -1758,11 +1758,13 @@ mirrors the @scheme[scheme/require] library. with an external name that matches @scheme[regexp]. @scheme[regexp] must be a literal regular expression (see @secref["regexp"]).} +@;{ Cute, and symmetric to subtract-in, but useless @defsubform[(subtract-out provide-spec subtracted-spec ...)]{ Like @scheme[provide-spec], but omitting exports that are provided by one of the @scheme[subtracted-spec]s. Note that this form is not useful by itself: the specified bindings have already been required so they have no clashes.} +;} @;------------------------------------------------------------------------ @section[#:tag "#%top-interaction"]{Interaction Wrapper: @scheme[#%top-interaction]}