/dports/lang/sagittarius-scheme/sagittarius-0.9.8/test/r6rs-test-suite/tests/r6rs/ |
H A D | syntax-case.sls | 17 [else (syntax->datum s)])) 213 [a (syntax->datum #'a)]) 240 (test (syntax->datum #'1) 1) 241 (test (syntax->datum #'a) 'a) 245 (test (syntax->datum '1) 1) 252 (test (syntax->datum (datum->syntax #'x 1)) 1) 253 (test (syntax->datum (datum->syntax #'x 'a)) 'a) 254 (test (syntax->datum (datum->syntax #'x '(a b))) '(a b)) 255 (test (syntax->datum (datum->syntax #'x '(a . b))) '(a . b)) 257 (test (number? (car (syntax->datum (datum->syntax #'x (list 1))))) #t) [all …]
|
/dports/lang/mosh/mosh-0.2.7/tests/r6rs-test-suite/tests/r6rs/ |
H A D | syntax-case.sls | 17 [else (syntax->datum s)])) 213 [a (syntax->datum #'a)]) 240 (test (syntax->datum #'1) 1) 241 (test (syntax->datum #'a) 'a) 245 (test (syntax->datum '1) 1) 252 (test (syntax->datum (datum->syntax #'x 1)) 1) 253 (test (syntax->datum (datum->syntax #'x 'a)) 'a) 254 (test (syntax->datum (datum->syntax #'x '(a b))) '(a b)) 255 (test (syntax->datum (datum->syntax #'x '(a . b))) '(a . b)) 257 (test (number? (car (syntax->datum (datum->syntax #'x (list 1))))) #t) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/syntax/scribblings/ |
H A D | datum.scrbl | 6 syntax/datum 10 @interaction-eval[#:eval datum-eval (require syntax/datum)] 14 @defmodule[syntax/datum]{The @racketmodname[syntax/datum] library 16 @racket[syntax-case], but for matching and constructing datum values 20 better choice than @racketmodname[syntax/datum]. The 21 @racketmodname[syntax/datum] library is useful mainly for its template 32 Like @racket[syntax-case] and @racket[syntax], but @racket[datum-expr] 45 @racket[datum->syntax] and then wrapping each use of @racket[syntax] 46 with @racket[syntax->datum], but @racket[datum-case] and 102 @racket[datum] instead of @racket[syntax-case] and @racket[syntax]. [all …]
|
/dports/lang/mosh/mosh-0.2.7/lib/mosh/ |
H A D | shell.ss | 33 syntax->datum quote with-syntax datum->syntax string->symbol close-port 95 …#'(pipe ((any->string (if (pair? (syntax->datum #'x)) (car (syntax->datum #'x)) (syntax->datum #'x… 96 … (map any->string (if (pair? (syntax->datum #'x)) (cdr (syntax->datum #'x)) '()))) 97 … ((any->string (if (pair? (syntax->datum #'y)) (car (syntax->datum #'y)) (syntax->datum #'y))) 99 … ((any->string (if (pair? (syntax->datum #'z)) (car (syntax->datum #'z)) (syntax->datum #'z))) 110 … ((any->string (if (pair? (syntax->datum #'x)) (car (syntax->datum #'x)) (syntax->datum #'x))) 111 (map any->string (if (pair? (syntax->datum #'x)) (cdr (syntax->datum #'x)) '()))) 112 … ((any->string (if (pair? (syntax->datum #'y)) (car (syntax->datum #'y)) (syntax->datum #'y))) 113 (map any->string (if (pair? (syntax->datum #'y)) (cdr (syntax->datum #'y)) '()))) 114 … ((any->string (if (pair? (syntax->datum #'z)) (car (syntax->datum #'z)) (syntax->datum #'z))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/model/ |
H A D | stx-util.rkt | 15 datum->artificial-syntax 19 (syntax->datum (datum->syntax #f x))) 41 (let* ([vstx (datum->artificial-inner-syntax v)] 42 [vstx (datum->syntax dstx vstx stx stx)] 51 (syntax-tainted? (datum->syntax stx #f)))) 54 (syntax-tainted? (datum->syntax stx #f))) 66 (define (datum->artificial-syntax x) 68 (cond [(pair? x) (mark-artificial (datum->syntax #f (datum->artificial-inner-syntax x)))] 70 [else (mark-artificial (datum->syntax #f x))]))) 72 (define (datum->artificial-inner-syntax x) [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | with-stx.rkt | 36 (datum->syntax 43 (datum->syntax 48 `(datum->syntax 61 (quote-syntax ,(datum->syntax 68 (-define-syntax with-datum (lambda (stx) (gen-with-syntax stx #t))) 86 (datum->syntax #f (append-number x))] 88 (datum->syntax #f (append-number x))] 90 (datum->syntax #f (append-number (keyword->string x)))] 92 (datum->syntax #f (append-number (syntax-e x)))] 94 (datum->syntax #f (append-number (keyword->string (syntax-e x))))] [all …]
|
H A D | qqstx.rkt | 38 (datum->syntax ctx l ctx)) 56 (datum->syntax 61 (datum->syntax 78 (convert-k (datum->syntax 97 (convert-k (datum->syntax 121 (convert-k (datum->syntax 171 (convert-k (datum->syntax 237 (loop (datum->syntax 245 (convert-k (datum->syntax 258 (convert-k (datum->syntax [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
H A D | with-stx.rkt | 36 (datum->syntax 43 (datum->syntax 48 `(datum->syntax 61 (quote-syntax ,(datum->syntax 68 (-define-syntax with-datum (lambda (stx) (gen-with-syntax stx #t))) 86 (datum->syntax #f (append-number x))] 88 (datum->syntax #f (append-number x))] 90 (datum->syntax #f (append-number (keyword->string x)))] 92 (datum->syntax #f (append-number (syntax-e x)))] 94 (datum->syntax #f (append-number (keyword->string (syntax-e x))))] [all …]
|
H A D | qqstx.rkt | 38 (datum->syntax ctx l ctx)) 56 (datum->syntax 61 (datum->syntax 78 (convert-k (datum->syntax 97 (convert-k (datum->syntax 121 (convert-k (datum->syntax 171 (convert-k (datum->syntax 237 (loop (datum->syntax 245 (convert-k (datum->syntax 258 (convert-k (datum->syntax [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/ |
H A D | syntax-case-6.rkt | 20 [r6rs:datum->syntax datum->syntax] 21 [r6rs:syntax->datum syntax->datum] 64 (define (r6rs:datum->syntax id datum) 70 'datum->syntax 76 (datum->syntax id (convert-mpairs datum))) 78 (define (r6rs:syntax->datum orig-stx) 82 (convert-pairs (syntax->datum stx))] 88 'syntax->datum 192 (hash-set! reconstruction-memory datum (datum->syntax stx 'memory stx))) 212 (define (leaf-to-syntax datum) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/ |
H A D | tool-contract-language.rkt | 21 (not (string? (syntax-object->datum (syntax type)))) 22 … (andmap (λ (x) (string? (syntax-object->datum x))) (syntax->list (syntax (strs ...))))) 45 (datum->syntax-object 47 (syntax-object->datum in-obj) 65 (when (string? (syntax-object->datum str-stx)) 77 (unless (string? (syntax-object->datum str)) 87 (andmap (λ (x) (string? (syntax-object->datum x))) 99 (datum->syntax-object 106 (datum->syntax-object 122 (when (string? (syntax-object->datum str-stx)) [all …]
|
/dports/lang/racket/racket-8.3/collects/syntax/parse/private/ |
H A D | litconv.rkt | 16 check-datum-literals-list 106 (define-for-syntax (check-duplicate-literals ctx imports lits datum-lits) 120 (for ([datum-lit (in-list datum-lits)]) 121 (let ([internal (den:datum-lit-internal datum-lit)]) 133 (#:datum-literals ,check-datum-literals-list) 148 [datum-lits 158 [(datum-internal ...) (map den:datum-lit-internal datum-lits)] 159 [(datum-external ...) (map den:datum-lit-external datum-lits)] 175 (make-lse:datum-lit 'datum-internal 257 (and (memq (syntax-e x) datum-lits) #t)))) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/syntax/parse/private/ |
H A D | litconv.rkt | 16 check-datum-literals-list 106 (define-for-syntax (check-duplicate-literals ctx imports lits datum-lits) 120 (for ([datum-lit (in-list datum-lits)]) 121 (let ([internal (den:datum-lit-internal datum-lit)]) 133 (#:datum-literals ,check-datum-literals-list) 148 [datum-lits 158 [(datum-internal ...) (map den:datum-lit-internal datum-lits)] 159 [(datum-external ...) (map den:datum-lit-external datum-lits)] 175 (make-lse:datum-lit 'datum-internal 257 (and (memq (syntax-e x) datum-lits) #t)))) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/datalog/private/ |
H A D | compiler.rkt | 26 (define srcstx (datum->syntax #f 'x srcloc)) 30 (define srcstx (datum->syntax #f 'x srcloc)) 34 (define srcstx (datum->syntax #f 'x srcloc)) 38 (define srcstx (datum->syntax #f 'x srcloc)) 40 (#,(intro #'require) #,(datum->syntax #f (string->symbol l))))])) 45 (define srcstx (datum->syntax #f 'x srcloc)) 48 (define srcstx (datum->syntax #f 'x srcloc)) 55 (define srcstx (datum->syntax #f 'x srcloc)) 59 (define srcstx (datum->syntax #f 'x srcloc)) 67 (define srcstx (datum->syntax #f 'x srcloc)) [all …]
|
/dports/lang/racket/racket-8.3/collects/syntax/ |
H A D | datum.rkt | 5 (for-syntax racket/base 8 (provide datum datum-case with-datum define/with-datum 11 (define-syntax (define/with-datum stx) 12 (syntax-case stx () 13 [(define/with-datum pattern rhs) 16 (get-match-vars #'define/with-datum 31 (with-datum ([pattern rhs]) 33 (define-syntax pvar 38 (define-syntax (pvar-value stx) 39 (syntax-case stx () [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
H A D | datum.rkt | 5 (for-syntax racket/base 8 (provide datum datum-case with-datum define/with-datum 11 (define-syntax (define/with-datum stx) 12 (syntax-case stx () 13 [(define/with-datum pattern rhs) 16 (get-match-vars #'define/with-datum 31 (with-datum ([pattern rhs]) 33 (define-syntax pvar 38 (define-syntax (pvar-value stx) 39 (syntax-case stx () [all …]
|
/dports/lang/racket/racket-8.3/src/cs/ |
H A D | schemify.sls | 21 datum->syntax) 27 [datum->correlated rumble:datum->correlated] 28 [correlated->datum rumble:correlated->datum] 44 (hash 'syntax? rumble:correlated? 48 'datum->syntax rumble:datum->correlated 49 'syntax->datum rumble:correlated->datum 58 (define syntax? rumble:correlated?) 59 (define syntax-e rumble:correlated-e) 61 (define datum->syntax rumble:datum->correlated) 72 (let-syntax ([gen [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/cs/ |
H A D | schemify.sls | 21 datum->syntax) 27 [datum->correlated rumble:datum->correlated] 28 [correlated->datum rumble:correlated->datum] 44 (hash 'syntax? rumble:correlated? 48 'datum->syntax rumble:datum->correlated 49 'syntax->datum rumble:correlated->datum 58 (define syntax? rumble:correlated?) 59 (define syntax-e rumble:correlated-e) 61 (define datum->syntax rumble:datum->correlated) 72 (let-syntax ([gen [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/ |
H A D | linklet.rkt | 36 datum->correlated 37 correlated->datum 54 (bounce syntax? 56 datum->syntax 57 syntax->datum 68 (syntax? e)) 70 (define (datum->correlated d [srcloc #f] [props #f]) 71 (datum->syntax #f d srcloc props)) 74 (syntax-e e)) 76 (define (correlated->datum e) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/ |
H A D | linklet.rkt | 36 datum->correlated 37 correlated->datum 54 (bounce syntax? 56 datum->syntax 57 syntax->datum 68 (syntax? e)) 70 (define (datum->correlated d [srcloc #f] [props #f]) 71 (datum->syntax #f d srcloc props)) 74 (syntax-e e)) 76 (define (correlated->datum e) [all …]
|
/dports/lang/racket/racket-8.3/src/expander/host/ |
H A D | correlate.rkt | 3 "../syntax/datum-map.rkt" 11 ;; host layer provides functions named `syntax?`, `datum->syntax`, 13 ;; `correlated?`, `datum->correlated`, etc. Additionally, 39 datum->correlated 44 correlated->datum 56 (define e (datum->correlated s-exp src-e)) 65 (define (datum->correlated d [srcloc #f]) 66 (datum->syntax #f d srcloc)) 90 (define (correlated->datum e) 91 (datum-map e (lambda (tail? d) d) (lambda (tail? d) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/host/ |
H A D | correlate.rkt | 3 "../syntax/datum-map.rkt" 11 ;; host layer provides functions named `syntax?`, `datum->syntax`, 13 ;; `correlated?`, `datum->correlated`, etc. Additionally, 39 datum->correlated 44 correlated->datum 56 (define e (datum->correlated s-exp src-e)) 65 (define (datum->correlated d [srcloc #f]) 66 (datum->syntax #f d srcloc)) 90 (define (correlated->datum e) 91 (datum-map e (lambda (tail? d) d) (lambda (tail? d) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/syntax/ |
H A D | syntax.rkt | 27 syntax->datum 28 datum->syntax 30 immediate-datum->syntax 43 deserialize-datum->syntax 74 (fprintf port " ~s" (syntax->datum s))] 77 (fprintf port " ~.s" (syntax->datum s)))]) 122 (ser-push! 'tag '#:datum->syntax) 123 (ser-push! (syntax->datum s))] 239 (define (syntax->datum s) 331 (raise-arguments-error 'datum->syntax [all …]
|
/dports/lang/racket/racket-8.3/src/expander/syntax/ |
H A D | syntax.rkt | 27 syntax->datum 28 datum->syntax 30 immediate-datum->syntax 43 deserialize-datum->syntax 74 (fprintf port " ~s" (syntax->datum s))] 77 (fprintf port " ~.s" (syntax->datum s)))]) 122 (ser-push! 'tag '#:datum->syntax) 123 (ser-push! (syntax->datum s))] 239 (define (syntax->datum s) 331 (raise-arguments-error 'datum->syntax [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/parser-tools-lib/parser-tools/private-yacc/ |
H A D | input-file-parser.rkt | 105 (cons (datum->syntax-object #f 'error) 138 (syntax-object->datum nts)) 151 (syntax-object->datum (syntax (non-term ...))))) 163 (syntax-object->datum (syntax (term ... ...))))) 183 (syntax-object->datum t)) 196 (syntax-object->datum prec-decls))))) 239 (syntax-object->datum s) 243 (syntax-object->datum s) 302 (syntax-object->datum (syntax term)) 308 (syntax-object->datum (syntax term))) [all …]
|