suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove subtract-out

Browse Source 
svn: r8962
This commit is contained in:
Eli Barzilay 2008-03-13 04:16:02 +00:00
parent 4520570cb2
commit bb9671f27b
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/provide.ss
View File

@ -14,6 +14,7 @@
(regexp-match? rx (symbol->string (export-out-sym e)))) (regexp-match? rx (symbol->string (export-out-sym e))))
(expand-export #'spec modes)))])))) (expand-export #'spec modes)))]))))
#| Cute, and symmetric to subtract-in, but useless
(provide subtract-out) (provide subtract-out)
(define-syntax subtract-out (define-syntax subtract-out
(make-provide-transformer (make-provide-transformer
@ -26,3 +27,4 @@
(apply append subs))]) (apply append subs))])
(filter (lambda (i) (not (memq (export-out-sym i) subs))) (filter (lambda (i) (not (memq (export-out-sym i) subs)))
(expand-export #'spec modes)))])))) (expand-export #'spec modes)))]))))
|#

2
collects/scribblings/reference/syntax.scrbl
View File

@ -1758,11 +1758,13 @@ mirrors the @scheme[scheme/require] library.
with an external name that matches @scheme[regexp]. @scheme[regexp] with an external name that matches @scheme[regexp]. @scheme[regexp]
must be a literal regular expression (see @secref["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 ...)]{ @defsubform[(subtract-out provide-spec subtracted-spec ...)]{
Like @scheme[provide-spec], but omitting exports that are provided Like @scheme[provide-spec], but omitting exports that are provided
by one of the @scheme[subtracted-spec]s. Note that this form is not by one of the @scheme[subtracted-spec]s. Note that this form is not
useful by itself: the specified bindings have already been required useful by itself: the specified bindings have already been required
so they have no clashes.} so they have no clashes.}
;}
@;------------------------------------------------------------------------ @;------------------------------------------------------------------------
@section[#:tag "#%top-interaction"]{Interaction Wrapper: @scheme[#%top-interaction]} @section[#:tag "#%top-interaction"]{Interaction Wrapper: @scheme[#%top-interaction]}