| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | primvars.ss | 31 (define-syntax setup
38 '#,(datum->syntax #'* v-prim)
39 '#,(datum->syntax #'* (vector-map priminfo-unprefixed v-info))
40 '#,(datum->syntax #'* (vector-map priminfo-mask v-info))
41 '#,(datum->syntax #'* (vector-map priminfo-arity v-info))
42 '#,(datum->syntax #'* (vector-map priminfo-arguments-type v-info))
43 '#,(datum->syntax #'* (vector-map priminfo-rest-type v-info))
44 '#,(datum->syntax #'* (vector-map priminfo-last-type v-info))
45 '#,(datum->syntax #'* (vector-map priminfo-result-type v-info)))))))
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | primvars.ss | 31 (define-syntax setup
38 '#,(datum->syntax #'* v-prim)
39 '#,(datum->syntax #'* (vector-map priminfo-unprefixed v-info))
40 '#,(datum->syntax #'* (vector-map priminfo-mask v-info))
41 '#,(datum->syntax #'* (vector-map priminfo-arity v-info))
42 '#,(datum->syntax #'* (vector-map priminfo-arguments-type v-info))
43 '#,(datum->syntax #'* (vector-map priminfo-rest-type v-info))
44 '#,(datum->syntax #'* (vector-map priminfo-last-type v-info))
45 '#,(datum->syntax #'* (vector-map priminfo-result-type v-info)))))))
|
| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | place-register.ss | 29 (hashtable-set! place-registers (#%syntax->datum id) i)
33 (syntax-case stx ()
35 #'(define-syntax (new-define stx)
38 (with-syntax ([i (#%datum->syntax #'here (add-place-register! #'id start count))])
42 (define-syntax id (syntax-rules ()))
47 (define-syntax (unsafe-place-local-ref stx)
48 (syntax-case stx ()
50 …(with-syntax ([i (#%datum->syntax #'here (or (hashtable-ref place-registers (#%syntax->datum #'id)…
55 (define-syntax (unsafe-place-local-set! stx)
56 (syntax-case stx ()
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | place-register.ss | 29 (hashtable-set! place-registers (#%syntax->datum id) i)
33 (syntax-case stx ()
35 #'(define-syntax (new-define stx)
38 (with-syntax ([i (#%datum->syntax #'here (add-place-register! #'id start count))])
42 (define-syntax id (syntax-rules ()))
47 (define-syntax (unsafe-place-local-ref stx)
48 (syntax-case stx ()
50 …(with-syntax ([i (#%datum->syntax #'here (or (hashtable-ref place-registers (#%syntax->datum #'id)…
55 (define-syntax (unsafe-place-local-set! stx)
56 (syntax-case stx ()
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.rnrs/ |
| H A D | explicit-renaming.ss | 6 ;; er-transformer (syntax)
8 ;; datum->syntax (procedure)
20 ;; be introduced using datum->syntax.
22 ;; - Breaking hygiene with datum->syntax allows more modular macro
47 define-syntax lambda syntax-case syntax datum->syntax free-identifier=?))
49 (define-syntax er-transformer
51 (syntax-case exp ()
53 (syntax
56 (lambda (symbol) (datum->syntax (syntax k) symbol))
60 (export er-transformer identifier? bound-identifier=? datum->syntax)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/ |
| H A D | demo.rkt | 166 (datum->syntax
184 (datum->syntax
214 (datum->syntax
230 (datum->syntax
251 (datum->syntax
270 (datum->syntax
297 (datum->syntax
321 (datum->syntax
585 (datum->syntax
1508 (datum->syntax #f datum))
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/ |
| H A D | demo.rkt | 166 (datum->syntax
184 (datum->syntax
214 (datum->syntax
230 (datum->syntax
251 (datum->syntax
270 (datum->syntax
297 (datum->syntax
321 (datum->syntax
585 (datum->syntax
1508 (datum->syntax #f datum))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzscheme/private/ |
| H A D | old-ds.rkt | 4 (for-syntax '#%kernel
7 (#%provide define-struct let-struct old-datum)
11 (with-syntax ([orig stx])
12 (syntax-case stx ()
16 (with-syntax ([insp
17 (if (keyword? (syntax-e #'insp))
18 (datum->syntax #'insp
19 (cons '#%datum #'insp)
25 (syntax-rules ()
31 (define-syntaxes (old-datum)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/at-exp-lib/scribble/ |
| H A D | reader.rkt | 253 (datum->syntax eol spaces eol)
268 (cons (datum->syntax stx0
300 (datum->syntax #f
410 ;; (datum->syntax #f (syntax-e cmd)
444 (loop (cons (datum->syntax #f sym
488 (datum->syntax #f stx
520 (get-datum-readtable) syntax-post-processor)))
568 (datum->syntax
622 (syntax->datum (r (object-name in) in))))
633 (if (syntax? r) (syntax->datum r) r))))))))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzscheme/ |
| H A D | main.rkt | 32 (#%provide require require-for-syntax require-for-template require-for-label
33 provide provide-for-syntax provide-for-label
41 (all-from-except racket/private/stxcase-scheme _ datum datum-case with-datum)
43 -define -define-syntax -define-struct
53 (all-from-except '#%kernel #%module-begin #%datum
55 syntax->datum datum->syntax
77 (rename syntax->datum syntax-object->datum)
78 (rename datum->syntax datum->syntax-object)
105 (rename old-datum #%datum)
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/nanopass/nanopass/ |
| H A D | records.ss | 158 (let ([mv-sym (syntax->datum mv)])
165 (syntax->datum (spec-name spec)) (syntax->datum lang-name))
286 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
328 (let ([type (syntax->datum id)])
334 (let ([ntname (syntax->datum id)])
347 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
354 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
402 [(eq? (syntax->datum id)
403 (syntax->datum
592 (syntax->datum nongen-id)
[all …]
|
| H A D | pass.ss | 34 (with-syntax ([pass (datum->syntax #'k 'pass)])
39 (with-syntax ([pass (datum->syntax #'k 'pass)])
56 (with-syntax ([in-context (datum->syntax #'id 'in-context)]
73 (with-syntax ([in-context (datum->syntax #'id 'in-context)])
102 (syntax->datum x) si)
111 [(eq? (syntax->datum lang) '*) #f]
483 … (syntax->datum fname) (syntax->datum (alt-syn in-altrec))
484 … (syntax->datum ofname) (syntax->datum (alt-syn out-altrec)))
711 [(eq? (syntax->datum (spec-type spec)) (syntax->datum itype)) #t]
1531 (pretty-print (syntax->datum x))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/nanopass/nanopass/ |
| H A D | records.ss | 158 (let ([mv-sym (syntax->datum mv)])
165 (syntax->datum (spec-name spec)) (syntax->datum lang-name))
286 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
328 (let ([type (syntax->datum id)])
334 (let ([ntname (syntax->datum id)])
347 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
354 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
402 [(eq? (syntax->datum id)
403 (syntax->datum
592 (syntax->datum nongen-id)
[all …]
|
| H A D | pass.ss | 34 (with-syntax ([pass (datum->syntax #'k 'pass)])
39 (with-syntax ([pass (datum->syntax #'k 'pass)])
56 (with-syntax ([in-context (datum->syntax #'id 'in-context)]
73 (with-syntax ([in-context (datum->syntax #'id 'in-context)])
102 (syntax->datum x) si)
111 [(eq? (syntax->datum lang) '*) #f]
483 … (syntax->datum fname) (syntax->datum (alt-syn in-altrec))
484 … (syntax->datum ofname) (syntax->datum (alt-syn out-altrec)))
711 [(eq? (syntax->datum (spec-type spec)) (syntax->datum itype)) #t]
1531 (pretty-print (syntax->datum x))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/base-env/ |
| H A D | type-name-error.rkt | 5 (require syntax/stx)
11 (raise-syntax-error
14 (syntax->datum (if (stx-pair? stx) (stx-car stx) stx))
15 (syntax->datum stx))
20 (raise-syntax-error
23 (syntax->datum (if (stx-pair? stx) (stx-car stx) stx))
24 (syntax->datum stx))
|
| /dports/lang/racket/racket-8.3/share/pkgs/distributed-places-lib/racket/place/ |
| H A D | define-remote-server.rkt | 3 (for-syntax syntax/stx)
15 (syntax-rules ()
40 (define-syntax-rule (define-syntax-parameter-error x)
48 #;(printf "FORM_NAME ~a ~a ~a\n" #'form-name (syntax->datum #'form-name)
49 (equal? (syntax->datum #'form-name) 'define-named-remote-server))
52 [(eq? (syntax->datum #'form-name) 'define-named-remote-server)
58 [(eq? (syntax->datum #'form-name) 'define-named-remote-server)
83 (symbol->string (syntax->datum x)))
85 (datum->syntax stx (string->symbol x)))
145 ;(pretty-print (syntax->datum x))
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/nanopass/nanopass/ |
| H A D | exp-syntax.sls | 49 '#,(datum->syntax #'* (unparse-Llanguage l))
196 `(define-language ,(syntax->datum id) . ,cl*)])
200 `(nongenerative-id ,(syntax->datum id))]
204 `(,(syntax->datum id) ,(map syntax->datum id*) . ,prod*)])
208 `(=> ,simple-term ,(syntax->datum handler))])
211 `(,(syntax->datum id) ,(map syntax->datum id*))])
217 `(-> ,pattern ,(syntax->datum handler))])
221 [,id (syntax->datum id)]
228 [(term-ref ,id0 ,id1 ,b) (syntax->datum id0)]
229 [(nt-ref ,id0 ,id1 ,b) (syntax->datum id0)])
[all …]
|
| H A D | records.ss | 161 (let ([mv-sym (syntax->datum mv)])
168 (syntax->datum (spec-name spec)) (syntax->datum lang-name))
290 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
326 (let ([type (syntax->datum id)])
332 (let ([ntname (syntax->datum id)])
345 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
352 (let ([m (meta-var->raw-meta-var (syntax->datum m))])
400 [(eq? (syntax->datum id)
401 (syntax->datum
592 (syntax->datum nongen-id)
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/syntax/ |
| H A D | error.rkt | 3 "syntax.rkt"
28 (struct exn:fail:syntax:unbound exn:fail:syntax ()
36 (do-raise-syntax-error who exn:fail:syntax given-name message
50 (define (do-raise-syntax-error who exn:fail:syntax given-name message
103 ;; accomodate `datum->syntax` failure similar to `->datum`:
105 (cons (datum->syntax #f (or sub-expr expr))
111 [(syntax? s)
134 (define (->datum expr)
136 (syntax->datum (datum->syntax #f expr))))
162 (format "~.s" (->datum v)))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
| H A D | error.rkt | 3 "syntax.rkt"
28 (struct exn:fail:syntax:unbound exn:fail:syntax ()
36 (do-raise-syntax-error who exn:fail:syntax given-name message
50 (define (do-raise-syntax-error who exn:fail:syntax given-name message
103 ;; accomodate `datum->syntax` failure similar to `->datum`:
105 (cons (datum->syntax #f (or sub-expr expr))
111 [(syntax? s)
134 (define (->datum expr)
136 (syntax->datum (datum->syntax #f expr))))
162 (format "~.s" (->datum v)))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/syntax-browser/ |
| H A D | pretty-helper.rkt | 47 (and (syntax? stx) (not (syntax-tainted? stx)) (syntax-tainted? (datum->syntax stx #f))))
49 (define (pretty-print/defaults datum [port (current-output-port)])
58 (pretty-write datum port)))
69 ;; syntax->datum/tables : stx partition% num SuffixOption
79 (define (syntax->datum/tables stx partition limit suffixopt abbrev?
122 => (lambda (datum) datum)]
133 [lp-inner-datum (loop inner)])
134 (link! inner lp-inner-datum)
135 (list (car newobj) lp-inner-datum)))]
192 (bound-identifier=? kw (datum->syntax stx (syntax-e kw)))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | stx-ops.scrbl | 21 (syntax? (datum->syntax #f 'millet))
202 @defproc[(syntax->datum [stx syntax?]) any/c]{
215 (syntax->datum #'a)
216 (syntax->datum #'(x . y))
217 (syntax->datum #'#(1 2 (+ 3 4)))
218 (syntax->datum #'#&"hello world")
220 (syntax->datum #'#(point 3 4))
221 (syntax->datum #'3)
222 (syntax->datum #'"three")
223 (syntax->datum #'#t)
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | template.rkt | 31 (define (datum->syntax* stx d)
32 (datum->syntax stx d stx stx stx))
71 (syntax-pattern-variable? (syntax-local-value #'a (lambda () #f)))]
129 (datum->syntax* template p)
132 (datum->syntax* template
137 (datum->syntax* template
154 (datum->syntax* template new)
157 (datum->syntax* template
161 (datum->syntax*
175 #:leaf-datum-stx [leaf-datum #'values]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | template.rkt | 31 (define (datum->syntax* stx d)
32 (datum->syntax stx d stx stx stx))
71 (syntax-pattern-variable? (syntax-local-value #'a (lambda () #f)))]
129 (datum->syntax* template p)
132 (datum->syntax* template
137 (datum->syntax* template
154 (datum->syntax* template new)
157 (datum->syntax* template
161 (datum->syntax*
175 #:leaf-datum-stx [leaf-datum #'values]
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | stxloc.rkt | 3 ;; syntax/loc
9 (begin-for-syntax
12 ((λ (ans) (datum->syntax #'here ans stx))
17 (-define-syntax syntax-case*
23 ;; Regular syntax-case
24 (-define-syntax syntax-case
32 (-define-syntax datum-case
38 (-define-syntax quote-syntax/prune
43 (datum->syntax #'here
44 (list (quote-syntax quote-syntax)
[all …]
|