12.2 Syntax Object Content
> (syntax? #'quinoa) #t
> (syntax? #'(spelt triticale buckwheat)) #t
> (syntax? (datum->syntax #f 'millet)) #t
> (syntax? "barley") #f
procedure
(identifier? v) → boolean?
v : any/c
> (identifier? #'linguine) #t
> (identifier? #'(if wheat? udon soba)) #f
> (identifier? 'ramen) #f
> (identifier? 15) #f
procedure
(syntax-source stx) → any/c
stx : syntax?
See also syntax-srcloc from racket/syntax-srcloc.
procedure
(syntax-line stx) → (or/c exact-positive-integer? #f)
stx : syntax?
Changed in version 7.0 of package base: Dropped a guarantee that syntax-line and syntax-column both produce #f or both produce integers.
procedure
(syntax-column stx) → (or/c exact-nonnegative-integer? #f)
stx : syntax?
Changed in version 7.0 of package base: Dropped a guarantee that syntax-line and syntax-column both produce #f or both produce integers.
procedure
(syntax-position stx) → (or/c exact-positive-integer? #f)
stx : syntax?
procedure
(syntax-span stx) → (or/c exact-nonnegative-integer? #f)
stx : syntax?
procedure
(syntax-original? stx) → boolean?
stx : syntax?
This predicate can be used to distinguish syntax objects in an expanded expression that were directly present in the original expression, as opposed to syntax objects inserted by macros.
The (hidden) property to represent original syntax is dropped for a syntax object that is marshaled as part of compiled code; see also current-compile.
procedure
(syntax-source-module stx [source?])
→ (or/c module-path-index? symbol? path? resolved-module-path? #f) stx : syntax? source? : any/c = #f
Note that syntax-source-module does not consult the source location of stx. The result is based on the lexical information of stx.
a symbol
a syntax pair (described below)
the empty list
an immutable vector containing syntax objects
an immutable box containing syntax objects
an immutable hash table containing syntax object values (but not necessarily syntax object keys)
an immutable prefab structure containing syntax objects
some other kind of datum—
usually a number, boolean, or string— that is interned when datum-intern-literal would convert the value
> (syntax-e #'a) 'a
> (syntax-e #'(x . y)) '(#<syntax:eval:11:0 x> . #<syntax:eval:11:0 y>)
> (syntax-e #'#(1 2 (+ 3 4))) '#(#<syntax:eval:12:0 1> #<syntax:eval:12:0 2> #<syntax:eval:12:0 (+ 3 4)>)
> (syntax-e #'#&"hello world") '#&#<syntax:eval:13:0 "hello world">
> (syntax-e #'#hash((imperial . "yellow") (festival . "green")))
'#hash((festival . #<syntax:eval:14:0 "green">)
(imperial . #<syntax:eval:14:0 "yellow">))
> (syntax-e #'#(point 3 4)) '#(#<syntax:eval:15:0 point> #<syntax:eval:15:0 3> #<syntax:eval:15:0 4>)
> (syntax-e #'3) 3
> (syntax-e #'"three") "three"
> (syntax-e #'#t) #t
A syntax pair is a pair containing a syntax object as its first element, and either the empty list, a syntax pair, or a syntax object as its second element.
A syntax object that is the result of read-syntax reflects the use of delimited . in the input by creating a syntax object for every pair of parentheses in the source, and by creating a pair-valued syntax object only for parentheses in the source. See Reading Pairs and Lists for more information.
If stx is tainted, then any syntax object in the result of (syntax-e stx) is tainted. The results from multiple calls to syntax-e of stx are eq?.
procedure
(syntax->list stx) → (or/c list? #f)
stx : syntax?
If stx is tainted, then any syntax object in the result of (syntax->list stx) is tainted.
> (syntax->list #'()) '()
> (syntax->list #'(1 (+ 3 4) 5 6))
'(#<syntax:eval:20:0 1>
#<syntax:eval:20:0 (+ 3 4)>
#<syntax:eval:20:0 5>
#<syntax:eval:20:0 6>)
> (syntax->list #'a) #f
procedure
(syntax->datum stx) → any/c
stx : syntax?
The stripping operation does not mutate stx; it creates new pairs, vectors, boxes, hash tables, and prefab structures as needed to strip lexical and source-location information recursively.
> (syntax->datum #'a) 'a
> (syntax->datum #'(x . y)) '(x . y)
> (syntax->datum #'#(1 2 (+ 3 4))) '#(1 2 (+ 3 4))
> (syntax->datum #'#&"hello world") '#&"hello world"
> (syntax->datum #'#hash((imperial . "yellow") (festival . "green"))) '#hash((festival . "green") (imperial . "yellow"))
> (syntax->datum #'#(point 3 4)) '#(point 3 4)
> (syntax->datum #'3) 3
> (syntax->datum #'"three") "three"
> (syntax->datum #'#t) #t
procedure
(datum->syntax ctxt v [srcloc prop ignored]) → syntax?
ctxt : (or/c syntax? #f) v : any/c
srcloc :
(or/c #f syntax? srcloc? (list/c any/c (or/c exact-positive-integer? #f) (or/c exact-nonnegative-integer? #f) (or/c exact-positive-integer? #f) (or/c exact-nonnegative-integer? #f)) (vector/c any/c (or/c exact-positive-integer? #f) (or/c exact-nonnegative-integer? #f) (or/c exact-positive-integer? #f) (or/c exact-nonnegative-integer? #f))) = #f prop : (or/c syntax? #f) = #f ignored : (or/c syntax? #f) = #f
Converted objects in v are given the lexical context information of ctxt and the source-location information of srcloc. The resulting immediate syntax object from conversion is given the properties (see Syntax Object Properties) of prop (even the hidden ones that would not be visible via syntax-property-symbol-keys); if v is a pair, vector, box, immutable hash table, or immutable prefab structure, recursively converted values are not given properties. If ctxt is tainted, then the resulting syntax object from datum->syntax is tainted. The code inspector of ctxt, if any, is compared to the code inspector of the module for the macro currently being transformed, if any; if both inspectors are available and if one is the same as or inferior to the other, then the result syntax has the same/inferior inspector, otherwise it has no code inspector.
Any of ctxt, srcloc, or prop can be #f, in which case the resulting syntax has no lexical context, source information, and/or new properties.
If srcloc is not #f, a srcloc instance, or a syntax object, it must be a list or vector of five elements that correspond to srcloc fields.
Graph structure is not preserved by the conversion of v to a syntax object. Instead, v is essentially unfolded into a tree. If v has a cycle through pairs, vectors, boxes, immutable hash tables, and immutable prefab structures, then the exn:fail:contract exception is raised.
The ignored argument is allowed for backward compatibility and has no effect on the returned syntax object.
Changed in version 8.2.0.5 of package base: Allow a srcloc value as a srcloc argument.
procedure
(syntax-binding-set? v) → boolean?
v : any/c
procedure
procedure
(syntax-binding-set->syntax binding-set datum) → syntax? binding-set : syntax-binding-set? datum : any/c
procedure
(syntax-binding-set-extend binding-set symbol phase mpi [ #:source-symbol source-symbol #:source-phase source-phase #:nominal-module nominal-mpi #:nominal-phase nominal-phase #:nominal-symbol nominal-symbol #:nominal-require-phase nominal-require-phase #:inspector inspector]) → syntax-binding-set? binding-set : syntax-binding-set? symbol : symbol? phase : (or/c exact-integer? #f) mpi : module-path-index? source-symbol : symbol? = symbol source-phase : (or/c exact-integer? #f) = phase nominal-mpi : module-path-index? = mpi nominal-phase : (or/c exact-integer? #f) = source-phase nominal-symbol : symbol? = source-symbol nominal-require-phase : (or/c exact-integer? #f) = 0 inspector : (or/c inspector? #f) = #f
The first three arguments to syntax-binding-set-extend establish a binding of symbol at phase to an identifier that is defined in the module referenced by mpi. Supply source-symbol to make the binding of symbol refer to a different provided variable from mpi, and so on; the optional arguments correspond to the results of identifier-binding.
Added in version 7.0.0.12 of package base.
procedure
(datum-intern-literal v) → any/c
v : any/c
If v is a number, character, string, byte string, or regular expression, then the result is a value that is equal? to v and eq? to a potential result of the default reader. (Note that mutable strings and byte strings are interned as immutable strings and byte strings.)
If v is an uninterned or an unreadable symbol, the result is still v, since an interned symbol would not be equal? to v.
The conversion process does not traverse compound values. For example, if v is a pair containing strings, then the strings within v are not interned.
If v1 and v2 are equal? but not
eq?, then it is possible that (datum-intern-literal v1) will return v1 and—
procedure
(syntax-shift-phase-level stx shift) → syntax?
stx : syntax? shift : (or/c exact-integer? #f)
procedure
(generate-temporaries stx-pair) → (listof identifier?)
stx-pair : (or syntax? list?)
The generated identifiers are built with interned symbols (not gensyms); see also Printing Compiled Code.
> (generate-temporaries '(a b c d)) '(#<syntax a1> #<syntax b2> #<syntax c3> #<syntax d4>)
> (generate-temporaries #'(1 2 3 4)) '(#<syntax temp5> #<syntax temp6> #<syntax temp7> #<syntax temp8>)
> (define-syntax (set!-values stx) (syntax-case stx () [(_ (id ...) expr) (with-syntax ([(temp ...) (generate-temporaries #'(id ...))]) #'(let-values ([(temp ...) expr]) (set! id temp) ... (void)))]))
procedure
(identifier-prune-lexical-context id-stx [ syms]) → identifier? id-stx : identifier? syms : (listof symbol?) = (list (syntax-e id-stx))
Currently, the result is always id-stx exactly. Pruning was intended primarily as a kind of optimization in a previous version of Racket, but it is less useful and difficult to implement efficiently in the current macro expander.
See also quote-syntax/prune.
Changed in version 6.5 of package base: Always return id-stx.
procedure
(identifier-prune-to-source-module id-stx) → identifier?
id-stx : identifier?
procedure
(syntax-recertify new-stx old-stx inspector key) → syntax? new-stx : syntax? old-stx : syntax? inspector : inspector? key : any/c
procedure
(syntax-debug-info stx [phase all-bindings?]) → hash?
stx : syntax? phase : (or/c exact-integer? #f) = (syntax-local-phase-level) all-bindings? : any/c = #f
'name —
the result of (syntax-e stx), if it is a symbol. 'context —
a list of vectors, where each vector represents a scope attached to stx. Each vector starts with a number that is distinct for every scope. A symbol afterward provides a hint at the scope’s origin: 'module for a module scope, 'macro for a macro-introduction scope, 'use-site for a macro use-site scope, or 'local for a local binding form. In the case of a 'module scope that corresponds to the inside edge, the module’s name and a phase (since an inside-edge scope is generated for each phase) are shown.
'bindings —
a list of bindings, each represented by a hash table. A binding table can include— but is not limited to— the following keys: 'name —
the symbolic name for the binding. 'context —
the scopes, as a list of vectors, for the binding. 'local —
a symbol representing a local binding; when this key is present, 'module is absent. 'module —
an encoding of a import from another module; when this key is present, 'local is absent. 'free-identifier=? —
a hash table of debugging information from an identifier for which the binding is an alias.
'fallbacks —
a list of hash tables like the one produced by syntax-debug-info for cross-namespace binding fallbacks.
Added in version 6.3 of package base.
12.2.1 Syntax Object Source Locations
(require racket/syntax-srcloc) | package: base |
procedure
(syntax-srcloc stx) → (or/c #f srcloc?)
stx : syntax?
Added in version 8.2.0.5 of package base.