| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | cross-phase.rkt | 22 (define p (if (expanded+parsed? body)
23 (expanded+parsed-parsed body)
72 (check-body-no-disallowed-expr (parsed-lambda-body e))]
101 (check-no-disallowed-expr (parsed-with-continuation-mark-body e))]
103 (check-body-no-disallowed-expr (parsed-begin-body e))]
104 [(parsed-begin0? e)
105 (check-body-no-disallowed-expr (parsed-begin0-body e))]
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
120 (check-body bodys))
148 (if (parsed? body)
[all …]
|
| H A D | parsed.rkt | 15 (struct parsed-top-id parsed-id () #:authentic)
17 (struct parsed-lambda parsed (keys body) #:authentic)
21 (struct parsed-set! parsed (id rhs) #: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 | expr.rkt | 86 (parsed-lambda rebuild-s formals body)
121 [body (in-list (m 'body))]
335 (define exp-body (get-body))
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
351 #:get-body get-body #:track? #t)]))
378 (define exp-body (expand-body (m 'body) ctx #:stratified? #t #:source rebuild-s))
380 (parsed-begin rebuild-s exp-body)
523 (parsed-with-continuation-mark rebuild-s exp-key exp-val exp-body)
573 'begin0
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | cross-phase.rkt | 22 (define p (if (expanded+parsed? body)
23 (expanded+parsed-parsed body)
72 (check-body-no-disallowed-expr (parsed-lambda-body e))]
101 (check-no-disallowed-expr (parsed-with-continuation-mark-body e))]
103 (check-body-no-disallowed-expr (parsed-begin-body e))]
104 [(parsed-begin0? e)
105 (check-body-no-disallowed-expr (parsed-begin0-body e))]
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
120 (check-body bodys))
148 (if (parsed? body)
[all …]
|
| H A D | parsed.rkt | 15 (struct parsed-top-id parsed-id () #:authentic)
17 (struct parsed-lambda parsed (keys body) #:authentic)
21 (struct parsed-set! parsed (id rhs) #: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 | expr.rkt | 86 (parsed-lambda rebuild-s formals body)
121 [body (in-list (m 'body))]
335 (define exp-body (get-body))
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
351 #:get-body get-body #:track? #t)]))
378 (define exp-body (expand-body (m 'body) ctx #:stratified? #t #:source rebuild-s))
380 (parsed-begin rebuild-s exp-body)
523 (parsed-with-continuation-mark rebuild-s exp-key exp-val exp-body)
573 'begin0
[all …]
|
| /dports/lang/racket/racket-8.3/src/expander/compile/ |
| H A D | expr.rkt | 42 [(parsed-id? p)
48 … (correlate* s `(lambda ,@(compile-lambda (parsed-lambda-keys p) (parsed-lambda-body p) cctx)))
67 [(parsed-if? p)
83 ,(compile (parsed-with-continuation-mark-body p) name result-used?)))]
84 [(parsed-begin0? p)
85 (correlate~ s `(begin0
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 …]
|
| /dports/lang/racket-minimal/racket-8.3/src/expander/compile/ |
| H A D | expr.rkt | 42 [(parsed-id? p)
48 … (correlate* s `(lambda ,@(compile-lambda (parsed-lambda-keys p) (parsed-lambda-body p) cctx)))
67 [(parsed-if? p)
83 ,(compile (parsed-with-continuation-mark-body p) name result-used?)))]
84 [(parsed-begin0? p)
85 (correlate~ s `(begin0
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 …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/private/ |
| H A D | reconstruct.rkt | 168 (begin0
349 ; ; static-binding-indexer (z:parsed -> integer)
472 [bodies (map (lambda (body) (let-recur body arglist))
489 ; if, begin, begin0
493 [(begin0 . bodies)
849 [(begin0 first-body . rest-bodies)
988 ; begin0 :
989 ;; one-body begin0: perhaps this will turn out to be a special case of the
991 [(begin0 body)
994 (error 'recon-inner "one-body begin0 given as context: ~a" exp))]
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/typecheck/ |
| H A D | tc-toplevel.rkt | 90 [((~literal module*) n:id spec body ...)
125 [(Poly-names: ns body)
332 [(module n spec (#%plain-module-begin body ...)) 'no-type]
334 [(module* n spec body ...) 'no-type]
446 (define parsed-structs
449 (register-parsed-struct-sty! parsed)
450 parsed))
653 [(pmb . forms) (begin0 (type-check #'forms) (do-time "finished type checking"))]))
686 (register-parsed-struct-sty! parsed)
688 (register-parsed-struct-bindings! parsed))
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/yuni/lib/ssax/ |
| H A D | parsing.sls | 28 ssax:predefined-parsed-entities
29 ssax:handle-parsed-entity
68 (define-syntax begin0
70 ((begin0 expression0 expressions ...)
345 ; ((do-finish (new-body)) new-body)
346 ; ((do-finish new-body) (begin . new-body))))
418 ((do-finish new-body) new-body)))
1116 ; Expand and handle a parsed-entity reference
1130 (define ssax:predefined-parsed-entities
1151 (begin0
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
| H A D | syntax-model.scrbl | 18 produce one that is fully parsed.}
45 when the former is parsed as a @tech{variable} or syntactic form and
46 the latter is parsed as a @deftech{reference} to the former; the
54 appears twice). When this source is parsed in a context where
86 error if it is parsed as an expression). A binding @deftech{shadows}
118 suggest the way that they are parsed. A hyperlinked identifier
263 #%plain-lambda case-lambda if begin begin0 let-values letrec-values
296 (begin0 expr expr ...)
444 is parsed as a reference to the corresponding
445 @tech{variable}. If the form being parsed is a
[all …]
|
| H A D | syntax.scrbl | 438 @racket[module] body.
744 @racket[rel-string] is always parsed as a Unix-format relative path:
1999 the procedure body.
2184 and in the @racket[body]s.
2241 body ...+)]{
2347 @specsubform[[test-expr then-body ...+]]{The @racket[then-body]s are
2765 @section[#:tag "begin"]{Sequencing: @racket[begin], @racket[begin0], and @racket[begin-for-syntax]}
2767 @guideintro["begin"]{@racket[begin] and @racket[begin0]}
2797 @defform[(begin0 expr ...+)]{
2801 are the results of the @racket[begin0] form; the first @racket[expr] is
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 24330 "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)"
24335 " 'parsed-begin0"
24345 " 'parsed-begin0)))))"
24589 " parsed-module-body"
31978 "(parsed-lambda-body p_0)"
32101 "(if(parsed-begin0? p_0)"
32107 "(compile_0(car(parsed-begin0-body p_0)) name_0 result-used?_0)"
32109 "(let-values(((lst_0)(cdr(parsed-begin0-body p_0))))"
32148 "(parsed-begin-body p_0)"
79977 "(if(parsed-begin0? e_0)"
[all …]
|
| /dports/lang/racket/racket-8.3/src/bc/src/ |
| H A D | startup.inc | 24330 "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)"
24335 " 'parsed-begin0"
24345 " 'parsed-begin0)))))"
24589 " parsed-module-body"
31978 "(parsed-lambda-body p_0)"
32101 "(if(parsed-begin0? p_0)"
32107 "(compile_0(car(parsed-begin0-body p_0)) name_0 result-used?_0)"
32109 "(let-values(((lst_0)(cdr(parsed-begin0-body p_0))))"
32148 "(parsed-begin-body p_0)"
79977 "(if(parsed-begin0? e_0)"
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/stepper/ |
| H A D | DESIGN-NOTES | 26 is first `encountered' (e.g., in the body of a closure). One reason that
90 Later: this is now obsolete: I'm just storing the parsed zodiac
129 source: we can follow the source itself, or we can follow the parsed
295 x when reconstructing the body, as there isn't one.
313 parsed expression. The information you need to reconstruct the
549 So we need a break there. However, the body expression is _also_ going
614 Now, when I'm just inside the body of first-thunk, and trying to
899 Time to clean up for v300. Let's see if we can get begin and begin0
926 Begin STILL isn't working. My last plan, to wrap each 'begin' body with
938 made all my problems go away, and now I'm a happy man. If only begin0
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | for.rkt | 213 (syntax-case #'body ()
1352 (begin0
1403 (lambda () (begin0
1542 ;; Bad body cases:
1620 [parsed-any-opts? #f]
1635 (not parsed-any-opts?)
1668 (if parsed-any-opts?
1729 (define-for-syntax (split-for-body stx body-stx)
1849 [((middle-body ...) (last-body ...)) (split-for-body stx #'(body ...))])
1893 [((middle-body ...) (last-body ...)) (split-for-body stx #'(body ...))]
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | for.rkt | 213 (syntax-case #'body ()
1352 (begin0
1403 (lambda () (begin0
1542 ;; Bad body cases:
1620 [parsed-any-opts? #f]
1635 (not parsed-any-opts?)
1668 (if parsed-any-opts?
1729 (define-for-syntax (split-for-body stx body-stx)
1849 [((middle-body ...) (last-body ...)) (split-for-body stx #'(body ...))])
1893 [((middle-body ...) (last-body ...)) (split-for-body stx #'(body ...))]
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/doc/ |
| H A D | modutil.texi | 2562 (begin0 (binary-heap-pop-min! heap)
2565 (begin0 (binary-heap-pop-max! heap)
11774 (it's @code{begin0} to @code{begin}).
11778 (@code{begin}に対する@code{begin0}と同じです。)
12761 operator is parsed by @var{op}.
14546 the parsed response headers and the response body (a string
15300 and returns parsed results as a list.
15965 is parsed from @var{port}:
17252 parsed uri.
17337 or a list form of parsed content type
[all …]
|
| H A D | modgauche.texi | 1348 @item body
1609 (cgen-body
8923 [(_ () body body2 ...) (begin body body2 ...)]
11536 to an integer address. If @var{address} is parsed successfully,
11541 parsed, @code{#f} and @code{#f} are returned.
11569 @var{buf} by the parsed address instead of returning it as
13365 @var{body} @dots{}を実行します。
13452 A list of command-line arguments passed to @var{args} are parsed
14934 (begin0 (port->string (process-output p 'out))
15997 (begin0 (read-line port)
[all …]
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/ |
| H A D | runtime.pkg | 2444 lambda-body
2452 set-lambda-body!)
2455 lambda-wrap-body!
4615 <body-item>
4645 make-body-item
4693 classify/body
4723 output/body
4802 (begin0 :begin0)
5826 http-header-parsed-value
5870 http-message-body
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/redex-lib/redex/private/ |
| H A D | reduction-semantics.rkt | 166 [(name lang (~var bs (bindings #f)) body ...+)
167 (nested-lets #'lang #'bs #'(body ...) #'name)]))
926 [body-code body-code]
938 #'body-code))))
1482 (define-values (body-code
1502 body-code)
1601 ;; body of mf
1712 (begin0
2023 (define parsed (map parse-non-terminal nt-defs))
2025 (for ([p parsed])
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/ |
| H A D | ChangeLog | 479 allowed an empty body.
629 expansion of begin0, for example. We omit
3578 how the arguments are parsed.
4225 instead of after the function body, so that the cproc body
7506 cumbersome. For example, both "\\/" and "/" would be parsed as
8885 the body.
9723 to save parsed AST.
9908 (pass1/body): Factored out the recursive parts as pass1/body-rec.
13002 (parse-specialized-args): reversing parsed arglist.
14501 SQL parsed by sql-tokenize behaves differently.
[all …]
|
| /dports/lang/guile2/guile-2.2.7/ |
| H A D | ChangeLog | 21532 make-begin0 (a better idea). Inline primcalls to with-fluid*, and
24942 * module/sxml/upstream/SSAX.scm (ssax:handle-parsed-entity):
25341 of the parsed PEG forms.
28091 add support for texinfo parsed arguments, like @acronym
32459 is parsed as a string.
42114 add section on format of parsed http headers
43830 ssax: add procs to define parsed entities
43831 * module/sxml/ssax.scm (reset-parsed-entity-definitions!)
43833 of parsed entity definitions.
50879 (chi-simple-lambda): Take already-parsed metadata.
[all …]
|