Rename generics => generic.

This commit is contained in:
Asumu Takikawa 2012-05-24 00:07:16 -04:00 committed by Vincent St-Amour
parent 11dc825126
commit a22633e348
24 changed files with 30 additions and 30 deletions

View File

@ -3,7 +3,7 @@
racket/contract/base racket/contract/base
racket/string racket/string
ffi/unsafe/atomic ffi/unsafe/atomic
racket/private/generics) racket/private/generic)
(define ordering/c (define ordering/c
(or/c '= '< '>)) (or/c '= '< '>))

View File

@ -4,7 +4,7 @@
racket/contract racket/contract
racket/dict racket/dict
racket/base racket/base
racket/generics)) racket/generic))
@title{Orders and Ordered Dictionaries} @title{Orders and Ordered Dictionaries}

View File

@ -2,7 +2,7 @@
(require racket/match (require racket/match
racket/contract/base racket/contract/base
racket/dict racket/dict
racket/generics racket/generic
"order.rkt") "order.rkt")
;; owned by ryanc ;; owned by ryanc

View File

@ -4,7 +4,7 @@
racket/match racket/match
racket/dict racket/dict
racket/contract/base racket/contract/base
racket/generics racket/generic
"order.rkt") "order.rkt")
#| #|

View File

@ -1173,7 +1173,7 @@ path/s is either such a string or a list of them.
"collects/racket/contract/private/ds.rkt" responsible (robby) "collects/racket/contract/private/ds.rkt" responsible (robby)
"collects/racket/contract/private/guts.rkt" responsible (robby) "collects/racket/contract/private/guts.rkt" responsible (robby)
"collects/racket/contract/private/helpers.rkt" responsible (robby) "collects/racket/contract/private/helpers.rkt" responsible (robby)
"collects/racket/generics.rkt" responsible (asumu stamourv) "collects/racket/generic.rkt" responsible (asumu stamourv)
"collects/racket/gui/base.rkt" drdr:command-line (gracket "-t" *) "collects/racket/gui/base.rkt" drdr:command-line (gracket "-t" *)
"collects/racket/gui/init.rkt" drdr:command-line (gracket "-t" *) "collects/racket/gui/init.rkt" drdr:command-line (gracket "-t" *)
"collects/racket/gui.rkt" drdr:command-line (gracket "-t" *) "collects/racket/gui.rkt" drdr:command-line (gracket "-t" *)
@ -1181,7 +1181,7 @@ path/s is either such a string or a list of them.
"collects/racket/match.rkt" responsible (samth) "collects/racket/match.rkt" responsible (samth)
"collects/racket/place" responsible (tewk) "collects/racket/place" responsible (tewk)
"collects/racket/place/distributed/examples/hello-world.rkt" drdr:command-line #f "collects/racket/place/distributed/examples/hello-world.rkt" drdr:command-line #f
"collects/racket/private/generics.rkt" responsible (asumu stamourv) "collects/racket/private/generic.rkt" responsible (asumu stamourv)
"collects/racket/slice.rkt" responsible (jay) "collects/racket/slice.rkt" responsible (jay)
"collects/racklog" responsible (jay) "collects/racklog" responsible (jay)
"collects/rackunit" responsible (jay noel ryanc) "collects/rackunit" responsible (jay noel ryanc)
@ -1286,7 +1286,7 @@ path/s is either such a string or a list of them.
"collects/scribblings/guide/read.scrbl" drdr:command-line #f "collects/scribblings/guide/read.scrbl" drdr:command-line #f
"collects/scribblings/raco" responsible (jay mflatt) "collects/scribblings/raco" responsible (jay mflatt)
"collects/scribblings/reference/distributed.scrbl" responsible (tewk) "collects/scribblings/reference/distributed.scrbl" responsible (tewk)
"collects/scribblings/reference/generics.scrbl" responsible (asumu stamourv) "collects/scribblings/reference/generic.scrbl" responsible (asumu stamourv)
"collects/scriblib" responsible (mflatt) "collects/scriblib" responsible (mflatt)
"collects/setup" responsible (mflatt) "collects/setup" responsible (mflatt)
"collects/setup/main.rkt" drdr:command-line #f "collects/setup/main.rkt" drdr:command-line #f
@ -1498,7 +1498,7 @@ path/s is either such a string or a list of them.
"collects/tests/future" responsible (jamesswaine mflatt robby) "collects/tests/future" responsible (jamesswaine mflatt robby)
"collects/tests/future/future.rkt" drdr:timeout 200 "collects/tests/future/future.rkt" drdr:timeout 200
"collects/tests/future/random-future.rkt" drdr:timeout 480 "collects/tests/future/random-future.rkt" drdr:timeout 480
"collects/tests/generics" responsible (asumu stamourv) "collects/tests/generic" responsible (asumu stamourv)
"collects/tests/gracket" responsible (mflatt) "collects/tests/gracket" responsible (mflatt)
"collects/tests/gracket/auto.rktl" drdr:command-line #f "collects/tests/gracket/auto.rktl" drdr:command-line #f
"collects/tests/gracket/blits.rkt" drdr:command-line (gracket "-f" *) "collects/tests/gracket/blits.rkt" drdr:command-line (gracket "-f" *)

View File

@ -1,13 +1,13 @@
#lang racket/base #lang racket/base
(require (rename-in "private/generics.rkt" (require (rename-in "private/generic.rkt"
[define-generics define-generics/pre]) [define-generics define-generics/pre])
(for-syntax racket/base racket/local)) (for-syntax racket/base racket/local))
;; Convenience layer on top of racket/private/generics. ;; Convenience layer on top of racket/private/generic.
;; To avoid circular dependencies, racket/private/generics cannot use ;; To avoid circular dependencies, racket/private/generic cannot use
;; `parse-keyword-options' (which depends on racket/dict). So we do ;; `parse-keyword-options' (which depends on racket/dict). So we do
;; keyword argument parsing here. ;; keyword argument parsing here.
;; Files that use racket/private/generics _must_ pass _all_ keyword ;; Files that use racket/private/generic _must_ pass _all_ keyword
;; arguments to define-generics _in_order_. ;; arguments to define-generics _in_order_.
(provide define-generics define/generic) (provide define-generics define/generic)

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/private/generics ; to avoid circular dependencies (require racket/private/generic ; to avoid circular dependencies
(for-syntax racket/base)) (for-syntax racket/base))
(define-generics (dict gen:dict prop:dict dict? #:defined-table dict-def-table (define-generics (dict gen:dict prop:dict dict? #:defined-table dict-def-table

View File

@ -12,7 +12,7 @@
(define-syntax (define-generics stx) (define-syntax (define-generics stx)
(syntax-case stx () ; can't use syntax-parse, since it depends on us (syntax-case stx () ; can't use syntax-parse, since it depends on us
;; keyword arguments must _all_ be provided _in_order_. For the ;; keyword arguments must _all_ be provided _in_order_. For the
;; user-facing version of `define-generics', see racket/generics. ;; user-facing version of `define-generics', see racket/generic.
;; ;;
;; The `header` is the original name the library writer provides ;; The `header` is the original name the library writer provides
;; that is used to define the `name`, `prop:name`, and `name?` ;; that is used to define the `name`, `prop:name`, and `name?`

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/private/generics (require racket/private/generic
(rename-in "private/for.rkt" (rename-in "private/for.rkt"
[stream-ref stream-get-generics] [stream-ref stream-get-generics]
[stream-empty? -stream-empty] [stream-empty? -stream-empty]

View File

@ -1,6 +1,6 @@
#lang scribble/doc #lang scribble/doc
@(require "mz.rkt" (for-syntax racket/base) (for-label racket/serialize @(require "mz.rkt" (for-syntax racket/base) (for-label racket/serialize
racket/generics)) racket/generic))
@(define posn-eval (make-base-eval)) @(define posn-eval (make-base-eval))
@(interaction-eval #:eval posn-eval (require (for-syntax racket/base))) @(interaction-eval #:eval posn-eval (require (for-syntax racket/base)))

View File

@ -1,8 +1,8 @@
#lang scribble/doc #lang scribble/doc
@(require "mz.rkt" scribble/eval (for-label racket/generics)) @(require "mz.rkt" scribble/eval (for-label racket/generic))
@(define dict-eval (make-base-eval)) @(define dict-eval (make-base-eval))
@(interaction-eval #:eval dict-eval (require racket/dict racket/generics)) @(interaction-eval #:eval dict-eval (require racket/dict racket/generic))
@title[#:tag "dicts"]{Dictionaries} @title[#:tag "dicts"]{Dictionaries}

View File

@ -1,5 +1,5 @@
#lang scribble/manual #lang scribble/manual
@(require (for-label racket/base racket/generics)) @(require (for-label racket/base racket/generic))
@title[#:tag "struct-generics"]{Generic Interfaces} @title[#:tag "struct-generics"]{Generic Interfaces}
@; @author[@author+email["Eli Barzilay" "eli@racket-lang.org"] @; @author[@author+email["Eli Barzilay" "eli@racket-lang.org"]
@ -7,7 +7,7 @@
@; @author+email["Vincent St-Amour" "stamourv@racket-lang.org"] @; @author+email["Vincent St-Amour" "stamourv@racket-lang.org"]
@; @author+email["Asumu Takikawa" "asumu@racket-lang.org"]] @; @author+email["Asumu Takikawa" "asumu@racket-lang.org"]]
@defmodule[racket/generics] @defmodule[racket/generic]
A @deftech{generic interface} allows per-type methods to be A @deftech{generic interface} allows per-type methods to be
associated with generic functions. Generic functions are defined associated with generic functions. Generic functions are defined
@ -72,7 +72,7 @@ with @racket[#:methods].
@(define (new-evaluator) @(define (new-evaluator)
(let* ([e (make-base-eval)]) (let* ([e (make-base-eval)])
(e '(require (for-syntax racket/base) (e '(require (for-syntax racket/base)
racket/generics)) racket/generic))
e)) e))
@(define evaluator (new-evaluator)) @(define evaluator (new-evaluator))

View File

@ -2,7 +2,7 @@
@(require "mz.rkt" scribble/scheme @(require "mz.rkt" scribble/scheme
(for-syntax racket/base) (for-syntax racket/base)
(for-label racket/generator (for-label racket/generator
racket/generics racket/generic
racket/mpair)) racket/mpair))
@(define (info-on-seq where what) @(define (info-on-seq where what)
@ -25,7 +25,7 @@ vice-versa.
@(define stream-evaluator @(define stream-evaluator
(let ([evaluator (make-base-eval)]) (let ([evaluator (make-base-eval)])
(evaluator '(require racket/generics)) (evaluator '(require racket/generic))
(evaluator '(require racket/list)) (evaluator '(require racket/list))
(evaluator '(require racket/stream)) (evaluator '(require racket/stream))
evaluator)) evaluator))

View File

@ -405,7 +405,7 @@ Returns @racket[#t] if @racket[v] is an accessor procedure produced
by @racket[make-struct-type-property], @racket[#f] otherwise.} by @racket[make-struct-type-property], @racket[#f] otherwise.}
@;------------------------------------------------------------------------ @;------------------------------------------------------------------------
@include-section["generics.scrbl"] @include-section["generic.scrbl"]
@;------------------------------------------------------------------------ @;------------------------------------------------------------------------
@section[#:tag "struct-copy"]{Copying and Updating Structures} @section[#:tag "struct-copy"]{Copying and Updating Structures}

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/generics racket/dict racket/list) (require racket/generic racket/dict racket/list)
(define-struct alist (v) (define-struct alist (v)
#:methods gen:dict #:methods gen:dict

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/generics (require racket/generic
(only-in racket/dict (only-in racket/dict
gen:dict prop:dict gen:dict prop:dict
dict? dict?

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/generics racket/port) (require racket/generic racket/port)
(define-generics printable (define-generics printable
(gen-print printable [port]) (gen-print printable [port])

View File

@ -1,5 +1,5 @@
#lang racket #lang racket
(require racket/generics (require racket/generic
tests/eli-tester) tests/eli-tester)
(define (massq idx l) (define (massq idx l)

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require racket/private/generics racket/sequence) (require racket/private/generic racket/sequence)
;; This was designed as a higher-level interface on top of sequences, ;; This was designed as a higher-level interface on top of sequences,
;; but it turns out streams can do all that already (including state), ;; but it turns out streams can do all that already (including state),

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require racket/generics racket/stream) (require racket/generic racket/stream)
(define-struct list-stream (v) (define-struct list-stream (v)
#:methods gen:stream #:methods gen:stream