Remove syntax-map.
This commit is contained in:
parent
0552411432
commit
4b6c252fb7
|
@ -18,12 +18,6 @@
|
||||||
(run-tests
|
(run-tests
|
||||||
(test-suite "syntax.rkt"
|
(test-suite "syntax.rkt"
|
||||||
|
|
||||||
(test-suite "Syntax Lists"
|
|
||||||
|
|
||||||
(test-suite "syntax-map"
|
|
||||||
(test-case "identifiers to symbols"
|
|
||||||
(check-equal? (syntax-map syntax-e #'(a b c)) '(a b c)))))
|
|
||||||
|
|
||||||
(test-suite "Syntax Source Locations"
|
(test-suite "Syntax Source Locations"
|
||||||
|
|
||||||
(test-suite "syntax-source-file-name"
|
(test-suite "syntax-source-file-name"
|
||||||
|
|
|
@ -91,15 +91,6 @@ Bounds are inclusive.
|
||||||
|
|
||||||
@;{----}
|
@;{----}
|
||||||
|
|
||||||
@addition{@author+email["Sam Tobin-Hochstadt" "samth@racket-lang.org"]}
|
|
||||||
|
|
||||||
@defproc[(syntax-map [f (-> syntax? A)] [stxl syntax?] ...) (listof A)]{
|
|
||||||
Performs @racket[(map f (syntax->list stxl) ...)].
|
|
||||||
|
|
||||||
@examples[#:eval the-eval
|
|
||||||
(syntax-map syntax-e #'(a b c))]
|
|
||||||
}
|
|
||||||
|
|
||||||
@addition{@author+email["Eric Dobson" "eric.n.dobson@gmail.com"]}
|
@addition{@author+email["Eric Dobson" "eric.n.dobson@gmail.com"]}
|
||||||
|
|
||||||
@defproc[(syntax-length [stx syntax?]) exact-nonnegative-integer?]{
|
@defproc[(syntax-length [stx syntax?]) exact-nonnegative-integer?]{
|
||||||
|
|
|
@ -1,13 +1,10 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
;; owner: ryanc (and cce and stamourv, where noted)
|
;; owner: ryanc (and cce and stamourv, where noted)
|
||||||
(require racket/syntax
|
(require racket/syntax
|
||||||
syntax/stx
|
|
||||||
(for-syntax racket/base)
|
(for-syntax racket/base)
|
||||||
(for-template racket/base))
|
(for-template racket/base))
|
||||||
|
|
||||||
(provide (rename-out [stx-map syntax-map])
|
(provide ;; by endobson
|
||||||
|
|
||||||
;; by endobson
|
|
||||||
syntax-length
|
syntax-length
|
||||||
|
|
||||||
;; by cce:
|
;; by cce:
|
||||||
|
|
Loading…
Reference in New Issue
Block a user