| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | cross-phase.rkt | 23 (expanded+parsed-parsed body)
37 [(parsed-lambda? e)
40 [(parsed-case-lambda? e)
71 [(parsed-lambda? e)
72 (check-body-no-disallowed-expr (parsed-lambda-body e))]
73 [(parsed-case-lambda? e)
74 (for ([clause (in-list (parsed-case-lambda-clauses e))])
103 (check-body-no-disallowed-expr (parsed-begin-body e))]
105 (check-body-no-disallowed-expr (parsed-begin0-body e))]
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
[all …]
|
| H A D | expr.rkt | 81 (define-match m s '(lambda formals body ...+))
84 (lambda-clause-expander s (m 'formals) (m 'body) ctx))
86 (parsed-lambda rebuild-s formals body)
89 `(,(m 'lambda) ,formals ,@body)))))
116 (define-match m s '(case-lambda [formals body ...+] ...))
126 (lambda-clause-expander s formals body ctx))
131 (parsed-case-lambda rebuild-s clauses)
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
380 (parsed-begin rebuild-s exp-body)
[all …]
|
| H A D | parsed.rkt | 15 (struct parsed-top-id parsed-id () #:authentic)
17 (struct parsed-lambda parsed (keys body) #:authentic)
18 (struct parsed-case-lambda parsed (clauses) #:authentic)
22 (struct parsed-with-continuation-mark parsed (key val body) #:authentic)
24 (struct parsed-begin parsed (body) #:authentic)
25 (struct parsed-begin0 parsed (body) #:authentic)
29 (struct parsed-let_-values parsed (idss clauses body) #:authentic)
35 (struct parsed-begin-for-syntax parsed (body) #:authentic)
40 (struct parsed-#%module-begin parsed (body) #:authentic)
41 (struct parsed-module parsed (star?
[all …]
|
| H A D | module.rkt | 48 (lambda (s ctx)
58 (lambda (s ctx)
64 (lambda (s ctx)
80 (lambda (s ctx)
662 (lambda (s)
910 (define parsed-body (parsed-#%declare exp-body))
913 (expanded+parsed exp-body parsed-body))
925 (lambda (ids rhs phase)
1325 (expanded+parsed-parsed body)
1371 (lambda ()
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | cross-phase.rkt | 23 (expanded+parsed-parsed body)
37 [(parsed-lambda? e)
40 [(parsed-case-lambda? e)
71 [(parsed-lambda? e)
72 (check-body-no-disallowed-expr (parsed-lambda-body e))]
73 [(parsed-case-lambda? e)
74 (for ([clause (in-list (parsed-case-lambda-clauses e))])
103 (check-body-no-disallowed-expr (parsed-begin-body e))]
105 (check-body-no-disallowed-expr (parsed-begin0-body e))]
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
[all …]
|
| H A D | expr.rkt | 81 (define-match m s '(lambda formals body ...+))
84 (lambda-clause-expander s (m 'formals) (m 'body) ctx))
86 (parsed-lambda rebuild-s formals body)
89 `(,(m 'lambda) ,formals ,@body)))))
116 (define-match m s '(case-lambda [formals body ...+] ...))
126 (lambda-clause-expander s formals body ctx))
131 (parsed-case-lambda rebuild-s clauses)
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
380 (parsed-begin rebuild-s exp-body)
[all …]
|
| H A D | parsed.rkt | 15 (struct parsed-top-id parsed-id () #:authentic)
17 (struct parsed-lambda parsed (keys body) #:authentic)
18 (struct parsed-case-lambda parsed (clauses) #:authentic)
22 (struct parsed-with-continuation-mark parsed (key val body) #:authentic)
24 (struct parsed-begin parsed (body) #:authentic)
25 (struct parsed-begin0 parsed (body) #:authentic)
29 (struct parsed-let_-values parsed (idss clauses body) #:authentic)
35 (struct parsed-begin-for-syntax parsed (body) #:authentic)
40 (struct parsed-#%module-begin parsed (body) #:authentic)
41 (struct parsed-module parsed (star?
[all …]
|
| H A D | module.rkt | 48 (lambda (s ctx)
58 (lambda (s ctx)
64 (lambda (s ctx)
80 (lambda (s ctx)
662 (lambda (s)
910 (define parsed-body (parsed-#%declare exp-body))
913 (expanded+parsed exp-body parsed-body))
925 (lambda (ids rhs phase)
1325 (expanded+parsed-parsed body)
1371 (lambda ()
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | expr.rkt | 44 [(parsed-lambda? p)
47 (add-lambda-properties
48 … (correlate* s `(lambda ,@(compile-lambda (parsed-lambda-keys p) (parsed-lambda-body p) cctx)))
52 [(parsed-case-lambda? p)
56 (correlate* s `(case-lambda ,@(for/list ([clause (in-list (parsed-case-lambda-clauses p))])
83 ,(compile (parsed-with-continuation-mark-body p) name result-used?)))]
86 ,(compile (car (parsed-begin0-body p)) name result-used?)
87 ,@(for/list ([e (in-list (cdr (parsed-begin0-body p)))])
90 (correlate~ s (compile-begin (parsed-begin-body p) cctx name result-used?))]
162 (define body (parsed-let_-values-body p))
[all …]
|
| H A D | module.rkt | 62 => (lambda (c)
103 (define body-context-simple? (parsed-module-root-ctx-simple? p))
105 (define bodys (parsed-module-body p))
158 #:other-form-callback (lambda (body cctx)
160 [(parsed-#%declare? body)
161 (define-match m (parsed-s body) '(_ kw ...))
201 ((lambda (s)
216 ((lambda (s)
248 `(lambda ()
267 ((lambda (s) (if to-correlated-linklet?
[all …]
|
| H A D | top.rkt | 8 "../expand/parsed.rkt"
52 ;; Compile the body forms, similar to compiling the body of a module
53 (define-values (body-linklets
82 #:other-form-callback (lambda (s cctx)
110 ((lambda (s)
120 (lambda (inst) (values inst #f))))
141 body-linklets]))))
164 [(parsed-require? p)
165 (define form-stx (compile-quote-syntax (parsed-s p) cctx))
177 [(parsed-begin? p)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | expr.rkt | 44 [(parsed-lambda? p)
47 (add-lambda-properties
48 … (correlate* s `(lambda ,@(compile-lambda (parsed-lambda-keys p) (parsed-lambda-body p) cctx)))
52 [(parsed-case-lambda? p)
56 (correlate* s `(case-lambda ,@(for/list ([clause (in-list (parsed-case-lambda-clauses p))])
83 ,(compile (parsed-with-continuation-mark-body p) name result-used?)))]
86 ,(compile (car (parsed-begin0-body p)) name result-used?)
87 ,@(for/list ([e (in-list (cdr (parsed-begin0-body p)))])
90 (correlate~ s (compile-begin (parsed-begin-body p) cctx name result-used?))]
162 (define body (parsed-let_-values-body p))
[all …]
|
| H A D | module.rkt | 62 => (lambda (c)
103 (define body-context-simple? (parsed-module-root-ctx-simple? p))
105 (define bodys (parsed-module-body p))
158 #:other-form-callback (lambda (body cctx)
160 [(parsed-#%declare? body)
161 (define-match m (parsed-s body) '(_ kw ...))
201 ((lambda (s)
216 ((lambda (s)
248 `(lambda ()
267 ((lambda (s) (if to-correlated-linklet?
[all …]
|
| H A D | top.rkt | 8 "../expand/parsed.rkt"
52 ;; Compile the body forms, similar to compiling the body of a module
53 (define-values (body-linklets
82 #:other-form-callback (lambda (s cctx)
110 ((lambda (s)
120 (lambda (inst) (values inst #f))))
141 body-linklets]))))
164 [(parsed-require? p)
165 (define form-stx (compile-quote-syntax (parsed-s p) cctx))
177 [(parsed-begin? p)
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/ |
| H A D | module-reader.rkt | 90 (lambda ()
153 (lambda xs
186 [body (lambda ()
230 (lambda (in)
253 (let ([parsed-spec (spec->module-path spec)])
254 (if parsed-spec
255 (let loop ([specs (if (vector? parsed-spec)
256 (vector->list parsed-spec)
257 (list parsed-spec))])
258 (define parsed-spec (car specs))
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
| H A D | module-reader.rkt | 90 (lambda ()
153 (lambda xs
186 [body (lambda ()
230 (lambda (in)
253 (let ([parsed-spec (spec->module-path spec)])
254 (if parsed-spec
255 (let loop ([specs (if (vector? parsed-spec)
256 (vector->list parsed-spec)
257 (list parsed-spec))])
258 (define parsed-spec (car specs))
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/mosh/ |
| H A D | cgi.ss | 35 (lambda(out)
37 (lambda (b)
41 (lambda (port)
48 (lambda (in out)
89 (define (request-body method)
107 (lambda (a b)
113 (define (init . body)
114 (let* ([content-body (if (pair? body) (car body) (request-body (request-method)))]
115 [parsed (parse-query-string content-body)])
119 (let ([value (assoc (if (symbol? key) (symbol->string key) key) parsed)])
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/ |
| H A D | unitsig200.rkt | 30 [(_ name sig . body)
36 . body))))])))
48 (check-signature-unit-body sig a-unit (parsed-unit-renames a-unit) 'unit/sig expr)
49 (with-syntax ([imports (parsed-unit-import-vars a-unit)]
55 (parsed-unit-vars a-unit))
63 [body (append
64 (reverse (parsed-unit-body a-unit))
65 ((parsed-unit-stx-checks a-unit) expr))]
73 . body)
80 [(_ . body)
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/lambda/ |
| H A D | wiki.ss | 1 (library (lambda wiki)
127 (let loop ([parsed '()]
131 (add-to-list parsed (list 'p text))]
167 (loop (add-to-list parsed (list 'p text))
181 (define (make-li body)
184 (define (add-li-body li body)
200 (lambda args
331 <body>
361 </body>
426 (if (and-let* ([body (get-parameter "body")]
[all …]
|
| /dports/lang/guile2/guile-2.2.7/module/ice-9/peg/ |
| H A D | string-peg.scm | 58 (lambda (x)
104 (let ((parsed (match-pattern peg-grammar str)))
105 (if (not parsed)
109 (let ((lst (peg:tree parsed)))
122 (lambda (x)
140 ((string=? grabber "<-") (datum->syntax for-syntax 'body))
158 #`(and #,@(map (lambda (x) (peg-body->defn x for-syntax))
224 (lambda (cc)
236 (lambda (x) (or (eq? (car x) 'charclass-range)
249 ((and (eq? (car lst) 'body)
[all …]
|
| /dports/lang/guile/guile-3.0.7/module/ice-9/peg/ |
| H A D | string-peg.scm | 58 (lambda (x)
104 (let ((parsed (match-pattern peg-grammar str)))
105 (if (not parsed)
109 (let ((lst (peg:tree parsed)))
122 (lambda (x)
140 ((string=? grabber "<-") (datum->syntax for-syntax 'body))
158 #`(and #,@(map (lambda (x) (peg-body->defn x for-syntax))
224 (lambda (cc)
236 (lambda (x) (or (eq? (car x) 'charclass-range)
249 ((and (eq? (car lst) 'body)
[all …]
|
| /dports/audio/snd/snd-21.2/ |
| H A D | loop.scm | 458 (body '()))
462 (if (null? body)
464 (set! body (reverse body))))
465 (push (car forms) body)
740 (parsed '()))
754 (lambda () ( (cadr op) forms (append clauses parsed) ops))
759 (set! parsed (append parsed (list clause)))
844 (body '()) )
860 (set! body op)
862 (if (not (null? body))
[all …]
|
| /dports/lang/guile1/guile-1.8.8/scripts/ |
| H A D | frisk | 38 ;; downstreams, as this is the usual question asked by a body. There
114 (lambda (filename)
181 (define (make-body alist)
182 (lambda (key)
218 (lambda (files)
222 (for-each (lambda (m)
236 (for-each (lambda (m)
254 (let* ((parsed-opts (getopt-long
264 (=d (option-ref parsed-opts 'downstream #f))
266 (=x (option-ref parsed-opts 'external #f))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/private/ |
| H A D | sigutil.rkt | 18 (define-struct parsed-unit (imports renames vars import-vars body stx-checks))
121 (lambda (who expr name body main-ctx)
581 (lambda (expr body sig user-stx-forms dv-stx ds-stx begin-stx)
671 (make-parsed-unit imports
780 (lambda (expr body)
1210 parsed-unit-renames
1211 parsed-unit-imports
1212 parsed-unit-import-vars
1213 parsed-unit-body
1214 parsed-unit-stx-checks
[all …]
|
| /dports/x11-toolkits/guile-gnome-platform/guile-gnome-platform-2.16.5/glib/gnome/gw/support/ |
| H A D | gtk-doc.scm | 211 . ,(lambda (tag term . body)
224 . ,(lambda (tag attrs . body)
232 . ,(lambda (tag body)
235 . ,(lambda (tag body)
248 . ,(lambda (tag attrs . body)
252 . ,(lambda (tag . body)
260 . ,(lambda (tag . body)
288 . ,(lambda (tag args body)
457 . ,(lambda (tag . body)
470 . ,(lambda (tag args body)
[all …]
|