| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | stx-trans.scrbl | 73 @defthing[prop:set!-transformer struct-type-property?]{
115 (rename-transformer? (make-rename-transformer #'values))
116 (rename-transformer? 'not-a-rename-transformer)
120 @defproc[(make-rename-transformer [id-stx syntax?])
175 @defproc[(rename-transformer-target [transformer rename-transformer?])
187 @defthing[prop:rename-transformer struct-type-property?]{
761 If @racket[id-stx] is bound to a @tech{rename transformer} created
814 values. If @racket[id-stx] is bound to a @tech{rename transformer},
820 @racket[id-stx] is not bound to a @tech{rename transformer}, then the
1407 @defthing[prop:require-transformer struct-type-property?]{
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | classidmap.rkt | 16 (define-values (struct:s!t make-s!t s!t? s!t-ref s!t-set!)
17 (make-struct-type 'set!-transformer #f 2 0 #f null (current-inspector) 0))
20 (make-set!-transformer (make-s!t proc old-id)))
74 (make-set!-transformer
324 (make-set!-transformer
356 (define-struct private-name (orig-id gen-id)
376 [(and (set!-transformer? v)
377 (s!t? (set!-transformer-procedure v)))
378 (s!t-ref (set!-transformer-procedure v) 1)]
381 (define-struct class-context ())
[all …]
|
| H A D | unit-compiletime.rkt | 10 (provide (struct-out var-info)
11 (struct-out signature)
13 (struct-out unit-info)
55 (define-struct var-info (syntax? [exported? #:mutable] id [ctc #:mutable]))
122 (define-struct/proc unit-info (unit-id import-sig-ids export-sig-ids deps orig-binder contracted?)
123 (lambda (struct stx)
124 (with-syntax ((u (syntax-local-introduce (unit-info-unit-id struct))))
160 (if (set!-transformer? x)
161 (set!-transformer-procedure x)
415 ; ((rename sub-spec . x)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | classidmap.rkt | 16 (define-values (struct:s!t make-s!t s!t? s!t-ref s!t-set!)
17 (make-struct-type 'set!-transformer #f 2 0 #f null (current-inspector) 0))
20 (make-set!-transformer (make-s!t proc old-id)))
74 (make-set!-transformer
324 (make-set!-transformer
356 (define-struct private-name (orig-id gen-id)
376 [(and (set!-transformer? v)
377 (s!t? (set!-transformer-procedure v)))
378 (s!t-ref (set!-transformer-procedure v) 1)]
381 (define-struct class-context ())
[all …]
|
| H A D | unit-compiletime.rkt | 10 (provide (struct-out var-info)
11 (struct-out signature)
13 (struct-out unit-info)
55 (define-struct var-info (syntax? [exported? #:mutable] id [ctc #:mutable]))
122 (define-struct/proc unit-info (unit-id import-sig-ids export-sig-ids deps orig-binder contracted?)
123 (lambda (struct stx)
124 (with-syntax ((u (syntax-local-introduce (unit-info-unit-id struct))))
160 (if (set!-transformer? x)
161 (set!-transformer-procedure x)
415 ; ((rename sub-spec . x)
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | r6rs-lang.rkt | 54 (rename-out [patch:define define]
62 [make-set!-transformer make-variable-transformer]
75 (rename-out [zero? fxzero?])
85 (rename-out [s:struct-type? record-type-descriptor?])
99 (rename-out [andmap for-all]
361 (wrap-transformer rhs)))
364 (splicing-let-syntax ([id (wrap-transformer rhs)] ...) body ...))
367 (splicing-letrec-syntax ([id (wrap-transformer rhs)] ...) body ...))
369 (define-for-syntax (wrap-transformer proc)
411 #'(make-rename-transformer #'id)]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/rktboot/ |
| H A D | r6rs-lang.rkt | 54 (rename-out [patch:define define]
62 [make-set!-transformer make-variable-transformer]
75 (rename-out [zero? fxzero?])
85 (rename-out [s:struct-type? record-type-descriptor?])
99 (rename-out [andmap for-all]
361 (wrap-transformer rhs)))
364 (splicing-let-syntax ([id (wrap-transformer rhs)] ...) body ...))
367 (splicing-letrec-syntax ([id (wrap-transformer rhs)] ...) body ...))
369 (define-for-syntax (wrap-transformer proc)
411 #'(make-rename-transformer #'id)]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | provide.rkt | 141 [(rename)
143 (define-match m spec '(rename id:from id:to))
148 (define-match m spec '(struct id:struct (id:field ...)))
149 (parse-struct! (m 'id:struct) orig-s (m 'id:field) at-phase ns rp protected?)
225 (define as-transformer? (binding-for-transformer? b spec at-phase ns))
229 #:as-transformer? as-transformer?))
231 (define (parse-struct! id:struct orig-s fields at-phase ns rp protected?)
234 (datum->syntax id:struct sym id:struct))
237 (syntax-e id:struct)
239 (datum->syntax id:struct sym id:struct))
[all …]
|
| H A D | body.rkt | 2 (require "../common/struct-star.rkt"
49 (define body-ctx (struct*-copy expand-context ctx
130 (log-expand body-ctx 'rename-one (list ids (m 'rhs)))
141 (loop (struct*-copy expand-context body-ctx
180 (log-expand body-ctx 'rename-one (list ids (m 'rhs)))
198 (loop (struct*-copy expand-context body-ctx
257 #:disappeared-transformer-bindings disappeared-transformer-bindings
258 #:disappeared-transformer-forms disappeared-transformer-forms)
282 (struct*-copy expand-context finish-ctx
290 (null? disappeared-transformer-bindings))
[all …]
|
| H A D | require.rkt | 26 (struct adjust-only (syms))
27 (struct adjust-prefix (sym))
28 (struct adjust-all-except (prefix-sym syms))
29 (struct adjust-rename (to-id from-sym))
199 (define-match m req '(rename spec id:to id:from))
206 (adjust-rename (m 'id:to) (syntax-e (m 'id:from)))
284 (adjust-rename-to-id adjust)
352 (lambda (binding as-transformer?)
363 (not as-transformer?)
384 (adjust-rename-to-id adjust))]))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | provide.rkt | 141 [(rename)
143 (define-match m spec '(rename id:from id:to))
148 (define-match m spec '(struct id:struct (id:field ...)))
149 (parse-struct! (m 'id:struct) orig-s (m 'id:field) at-phase ns rp protected?)
225 (define as-transformer? (binding-for-transformer? b spec at-phase ns))
229 #:as-transformer? as-transformer?))
231 (define (parse-struct! id:struct orig-s fields at-phase ns rp protected?)
234 (datum->syntax id:struct sym id:struct))
237 (syntax-e id:struct)
239 (datum->syntax id:struct sym id:struct))
[all …]
|
| H A D | body.rkt | 2 (require "../common/struct-star.rkt"
49 (define body-ctx (struct*-copy expand-context ctx
130 (log-expand body-ctx 'rename-one (list ids (m 'rhs)))
141 (loop (struct*-copy expand-context body-ctx
180 (log-expand body-ctx 'rename-one (list ids (m 'rhs)))
198 (loop (struct*-copy expand-context body-ctx
257 #:disappeared-transformer-bindings disappeared-transformer-bindings
258 #:disappeared-transformer-forms disappeared-transformer-forms)
282 (struct*-copy expand-context finish-ctx
290 (null? disappeared-transformer-bindings))
[all …]
|
| H A D | require.rkt | 26 (struct adjust-only (syms))
27 (struct adjust-prefix (sym))
28 (struct adjust-all-except (prefix-sym syms))
29 (struct adjust-rename (to-id from-sym))
199 (define-match m req '(rename spec id:to id:from))
206 (adjust-rename (m 'id:to) (syntax-e (m 'id:from)))
284 (adjust-rename-to-id adjust)
352 (lambda (binding as-transformer?)
363 (not as-transformer?)
384 (adjust-rename-to-id adjust))]))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/rep/ |
| H A D | rep-utils.rkt | 186 (define-syntax free-vars* (make-rename-transformer #'Rep-free-vars))
187 (define-syntax free-idxs* (make-rename-transformer #'Rep-free-idxs))
239 ;; defines a "rep transformer"
243 (define (rep-transform self f-id struct-fields body)
251 (define (fixed-rep-transform self f-id fun struct-fields body)
252 (with-syntax ([transformer (rep-transform self f-id struct-fields body)]
255 #'(λ (self) (transformer self fun))))
292 (define-syntax-class (generic-transformer struct-fields)
312 (define-syntax-class (fld-id struct-name)
316 (format-id #'name "~a-~a" (syntax-e struct-name) (syntax-e #'name))))
[all …]
|
| /dports/lang/racket/racket-8.3/src/io/common/ |
| H A D | class.rkt | 3 racket/struct-info)
27 ;; A <class-id> and its <field>s behave as if they are in a `struct`
80 (struct class-info (struct-info methods-id vtable-id vtable-accessor-id fields methods statics)
186 [struct:id (combine-ids id "struct:" id)]
209 (struct methods-id super-methods-ids ... (new-method-id ...))
218 (class-info (list (quote-syntax struct:id)
257 (syntax-parameterize ([this (make-rename-transformer #'this-id)])
261 (let-syntax ([arg-id (make-rename-transformer #'arg-tmp)] ...)
285 #'(let-syntax ([field-id (make-set!-transformer
482 #'(syntax-parameterize ([this (make-rename-transformer #'this-id)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/io/common/ |
| H A D | class.rkt | 3 racket/struct-info)
27 ;; A <class-id> and its <field>s behave as if they are in a `struct`
80 (struct class-info (struct-info methods-id vtable-id vtable-accessor-id fields methods statics)
186 [struct:id (combine-ids id "struct:" id)]
209 (struct methods-id super-methods-ids ... (new-method-id ...))
218 (class-info (list (quote-syntax struct:id)
257 (syntax-parameterize ([this (make-rename-transformer #'this-id)])
261 (let-syntax ([arg-id (make-rename-transformer #'arg-tmp)] ...)
285 #'(let-syntax ([field-id (make-set!-transformer
482 #'(syntax-parameterize ([this (make-rename-transformer #'this-id)])
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/parser-tools-lib/parser-tools/ |
| H A D | lex.rkt | 25 (struct position (offset line col))
26 (struct position-token (token start-pos end-pos))
44 ((return-without-pos (make-rename-transformer #'ret)))
50 ((start-pos (make-rename-transformer #'start-pos-p))
51 (end-pos (make-rename-transformer #'end-pos-p))
52 (lexeme (make-rename-transformer #'lexeme-p))
53 (input-port (make-rename-transformer #'input-port-p)))
386 [(_ id ...)
388 (define-syntax-parameter id
394 'id)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/private/ |
| H A D | structure-helper.rkt | 4 (define-struct str (renames))
20 (define (get-renames id err)
21 (let ((x (syntax-local-value id (err id))))
23 ((err id)))
51 (make-rename-transformer (cdr hid))))
|
| /dports/lang/racket/racket-8.3/collects/setup/ |
| H A D | parallel-do.rkt | 115 (define/public (get-id) id)
168 (wrkr/id get-id)
384 (syntax-parameterize ([send/msg (make-rename-transformer #'send/msgp)]
385 [recv/req (make-rename-transformer #'recv/reqp)]
386 [worker/die (make-rename-transformer #'die-k)])
389 (syntax-parameterize ([send/success (make-rename-transformer #'send/successp)]
390 [send/error (make-rename-transformer #'send/errorp)]
391 [send/report (make-rename-transformer #'send/reportp)]
392 [send/log (make-rename-transformer #'send/logp)])
485 (syntax-local-lift-provide #'(rename interal-def-name name)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/setup/ |
| H A D | parallel-do.rkt | 115 (define/public (get-id) id)
168 (wrkr/id get-id)
384 (syntax-parameterize ([send/msg (make-rename-transformer #'send/msgp)]
385 [recv/req (make-rename-transformer #'recv/reqp)]
386 [worker/die (make-rename-transformer #'die-k)])
389 (syntax-parameterize ([send/success (make-rename-transformer #'send/successp)]
390 [send/error (make-rename-transformer #'send/errorp)]
391 [send/report (make-rename-transformer #'send/reportp)]
392 [send/log (make-rename-transformer #'send/logp)])
485 (syntax-local-lift-provide #'(rename interal-def-name name)))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/formlets/ |
| H A D | dyn-syntax.rkt | 20 (struct label-formlet (p))
65 (struct #%#-mark (l))
76 [(=>* formlet:expr name:id)
78 [(_ formlet:expr (values name:id ...))
87 [#%# (make-rename-transformer #'inner-#%#)])
|
| /dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/formlets/unsafe/ |
| H A D | dyn-syntax.rkt | 19 (struct label-formlet (p))
64 (struct #%#-mark (l))
75 [(=>* formlet:expr name:id)
77 [(_ formlet:expr (values name:id ...))
86 [#%# (make-rename-transformer #'inner-#%#)])
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/ |
| H A D | expander.ss | 1293 (define (rename x old* new*)
1300 (define (rename* x* old* new*)
1938 (define define-struct-macro
1939 (if-wants-define-struct
1972 ($struct ',rtd ,@field*)))
1979 ($struct-ref x ,i)
2785 ((define-struct) define-struct-macro)
3347 ((rename (i* e*) ...)
3349 (unless (and (eq? (syntax->datum rename) 'rename)
3539 ((rename isp (old* new*) ...)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | binding.rkt | 15 "../expand/rename-trans.rkt"
122 (define (maybe-install-free=id! val id phase)
123 (when (rename-transformer? val)
124 (define free=id (rename-transformer-target val))
127 …(add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) (binding-set-free=id b free=id))…
130 (define (binding-set-free=id b free=id)
140 (struct non-source-shift (from to) #:prefab)
166 (struct-copy syntax s
192 ;; (as installed by a binding to a rename transformer) are relevant;
321 (struct-copy syntax s
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | binding.rkt | 15 "../expand/rename-trans.rkt"
122 (define (maybe-install-free=id! val id phase)
123 (when (rename-transformer? val)
124 (define free=id (rename-transformer-target val))
127 …(add-binding-in-scopes! (syntax-scope-set id phase) (syntax-e id) (binding-set-free=id b free=id))…
130 (define (binding-set-free=id b free=id)
140 (struct non-source-shift (from to) #:prefab)
166 (struct-copy syntax s
192 ;; (as installed by a binding to a rename transformer) are relevant;
321 (struct-copy syntax s
[all …]
|