| /dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
| H A D | bindings-arity-error.rkt | 4 (provide raise-bindings-arity-error)
6 (define (raise-bindings-arity-error who ids vals)
7 (apply raise-result-arity-error
|
| H A D | module-prompt.rkt | 2 (require "bindings-arity-error.rkt")
23 (raise-bindings-arity-error who ids vals))
|
| /dports/lang/racket/racket-8.3/src/expander/expand/ |
| H A D | bindings-arity-error.rkt | 4 (provide raise-bindings-arity-error)
6 (define (raise-bindings-arity-error who ids vals)
7 (apply raise-result-arity-error
|
| H A D | module-prompt.rkt | 2 (require "bindings-arity-error.rkt")
23 (raise-bindings-arity-error who ids vals))
|
| /dports/lang/racket/racket-8.3/collects/racket/private/ |
| H A D | for.rkt | 184 (raise-syntax-error #f
361 (raise-syntax-error #f
365 (raise-syntax-error #f
426 (raise-argument-error 'sequence-property-guard "(procedure-arity-includes/c 1)" v))
673 (raise-argument-error 'in-port "(procedure-arity-includes/c 1)" r))
687 (raise-argument-error
703 (raise-argument-error
1079 (raise-argument-error 'stop-before "(procedure-arity-includes/c 1)" pred))
1099 (raise-argument-error 'stop-after "(procedure-arity-includes/c 1)" pred))
1544 (raise-syntax-error
[all …]
|
| H A D | pre-base.rkt | 16 "map.rkt" ; shadows #%kernel bindings
68 (raise-mismatch-error
116 (raise-argument-error
122 (raise-arguments-error
130 (raise-argument-error
136 (raise-argument-error
146 (raise-argument-error
152 (raise-arguments-error
157 (raise-argument-error
186 (raise-syntax-error #f "bad syntax" stx)))))
[all …]
|
| H A D | set-types.rkt | 428 (apply raise-argument-error
438 (apply raise-argument-error
445 (apply raise-argument-error
452 (apply raise-argument-error
459 (apply raise-argument-error
468 (apply raise-argument-error
492 (apply raise-argument-error
509 (raise-arguments-error who
522 (raise-arguments-error
538 (raise-arguments-error
[all …]
|
| H A D | kw.rkt | 496 (raise-arguments-error
581 (raise-syntax-error
607 (raise-syntax-error
614 (raise-syntax-error
620 (raise-syntax-error
626 (raise-syntax-error
1187 (raise-syntax-error
1746 (raise-arguments-error 'procedure-reduce-arity
1766 (raise-arguments-error 'procedure-reduce-arity
2118 (raise-arguments-error
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
| H A D | for.rkt | 184 (raise-syntax-error #f
361 (raise-syntax-error #f
365 (raise-syntax-error #f
426 (raise-argument-error 'sequence-property-guard "(procedure-arity-includes/c 1)" v))
673 (raise-argument-error 'in-port "(procedure-arity-includes/c 1)" r))
687 (raise-argument-error
703 (raise-argument-error
1079 (raise-argument-error 'stop-before "(procedure-arity-includes/c 1)" pred))
1099 (raise-argument-error 'stop-after "(procedure-arity-includes/c 1)" pred))
1544 (raise-syntax-error
[all …]
|
| H A D | pre-base.rkt | 16 "map.rkt" ; shadows #%kernel bindings
68 (raise-mismatch-error
116 (raise-argument-error
122 (raise-arguments-error
130 (raise-argument-error
136 (raise-argument-error
146 (raise-argument-error
152 (raise-arguments-error
157 (raise-argument-error
186 (raise-syntax-error #f "bad syntax" stx)))))
[all …]
|
| H A D | set-types.rkt | 428 (apply raise-argument-error
438 (apply raise-argument-error
445 (apply raise-argument-error
452 (apply raise-argument-error
459 (apply raise-argument-error
468 (apply raise-argument-error
492 (apply raise-argument-error
509 (raise-arguments-error who
522 (raise-arguments-error
538 (raise-arguments-error
[all …]
|
| H A D | kw.rkt | 496 (raise-arguments-error
581 (raise-syntax-error
607 (raise-syntax-error
614 (raise-syntax-error
620 (raise-syntax-error
626 (raise-syntax-error
1187 (raise-syntax-error
1746 (raise-arguments-error 'procedure-reduce-arity
1766 (raise-arguments-error 'procedure-reduce-arity
2118 (raise-arguments-error
[all …]
|
| /dports/www/elixir-phoenix/phoenix-1.3.3/lib/phoenix/router/ |
| H A D | helpers.ex | 29 raise ArgumentError,
57 raise ArgumentError,
68 :error -> nil
78 :error -> nil
80 :error -> nil
239 bindings =
241 |> Enum.map(fn {_, bindings} -> Enum.map(bindings, fn _ -> {:_, [], nil} end) end)
245 for binding <- bindings do
292 for {action, bindings} <- routes do
293 bindings = Enum.join(bindings, ", ")
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/contract/private/ |
| H A D | arrow-val-first.rkt | 756 (raise-syntax-error '->
762 (raise-syntax-error '->
783 (raise-syntax-error '->
789 (raise-syntax-error '->
936 (raise-syntax-error name
942 (raise-syntax-error name
1126 (raise-blame-error
1308 (raise-argument-error
1314 (raise-argument-error
1337 (raise-argument-error 'dynamic->*
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/racket/contract/private/ |
| H A D | arrow-val-first.rkt | 756 (raise-syntax-error '->
762 (raise-syntax-error '->
783 (raise-syntax-error '->
789 (raise-syntax-error '->
936 (raise-syntax-error name
942 (raise-syntax-error name
1126 (raise-blame-error
1308 (raise-argument-error
1314 (raise-argument-error
1337 (raise-argument-error 'dynamic->*
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/ |
| H A D | base-6.rkt | 208 (raise-type-error 'infinite? "real" n)))
214 (raise-type-error 'infinite? "real" n)))
219 (raise-type-error 'nan? "real" n)))
239 (raise-type-error 'div "real number" y)]))
275 (raise-syntax-error #f
345 [else (raise-type-error
498 (raise-syntax-error
506 (raise-syntax-error
538 (raise-syntax-error
574 (procedure-reduce-arity
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/redex-lib/redex/private/ |
| H A D | judgment-form.rkt | 149 (error 'mode->arity.internal-error "no arity when mode is #f")]
855 (raise-syntax-error
866 (raise-syntax-error syn-error-name
871 (raise-syntax-error syn-error-name
881 (raise-syntax-error syn-error-name
1153 (raise-syntax-error
1335 (raise-syntax-error syn-error-name
1340 (raise-syntax-error syn-error-name
1346 (raise-syntax-error
1353 (raise-syntax-error
[all …]
|
| /dports/lang/ocaml/ocaml-4.05.0/bytecomp/ |
| H A D | translcore.ml | 27 type error = type
34 exception Error of Location.t * error
182 "%raise", Praise Raise_regular;
499 | Lletrec(bindings, body) ->
517 | Lletrec(bindings, body) ->
538 and add_letrec bindings idlist =
566 | _ -> raise Not_constant
611 case.c_rhs bindings
628 push_defaults loc bindings
943 raise Not_constant
[all …]
|
| /dports/lang/ocaml-nox11/ocaml-4.05.0/bytecomp/ |
| H A D | translcore.ml | 27 type error = type
34 exception Error of Location.t * error
182 "%raise", Praise Raise_regular;
499 | Lletrec(bindings, body) ->
517 | Lletrec(bindings, body) ->
538 and add_letrec bindings idlist =
566 | _ -> raise Not_constant
611 case.c_rhs bindings
628 push_defaults loc bindings
943 raise Not_constant
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/redex-examples/redex/examples/r6rs/ |
| H A D | r6rs-tests.rkt | 61 (error 'verify-p* "matched ~a times\n ~s\norig\n ~s"
71 (error 'verify-a* "didn't match ~s\noriginal term ~s" sexp orig-sexp))
96 (error 'rewrite-actual "unknown actual ~s\n" actual)]))
102 [pp-bindings (filter pp-var? str)]
108 [_ (error 'subst-:-vars "unknown exp ~s" exp)]))
132 [`(store ,bindings ,body)
133 (let* ([binding-rhss (map cadr bindings)]
134 [bindings-to-sub
139 ,(r6-all bindings-to-sub body)))]))
157 (define (fp-sub bindings term)
[all …]
|
| /dports/lang/racket/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 35 #:attr arity (arity 0 0 null null))
80 (raise-syntax-error #f "expected phase-level (exact integer or #f)" ctx stx))
92 (raise-syntax-error #f "expected literal set name" ctx litset-id))))]
93 [_ (raise-syntax-error #f "expected list of literal set names" ctx stx)]))
104 [_ (raise-syntax-error #f "expected literal entry" ctx stx)]))
110 (raise-syntax-error #f (format "duplicate literal: ~a" key) ctx blame-stx))
142 (raise-syntax-error #f "expected identifier" stx #'name))
154 [_ (raise-syntax-error #f "bad syntax" stx)])]
181 (raise-syntax-error #f
199 For the expansion of the define-literal-set form, the bindings of the literals
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/collects/syntax/parse/private/ |
| H A D | litconv.rkt | 35 #:attr arity (arity 0 0 null null))
80 (raise-syntax-error #f "expected phase-level (exact integer or #f)" ctx stx))
92 (raise-syntax-error #f "expected literal set name" ctx litset-id))))]
93 [_ (raise-syntax-error #f "expected list of literal set names" ctx stx)]))
104 [_ (raise-syntax-error #f "expected literal entry" ctx stx)]))
110 (raise-syntax-error #f (format "duplicate literal: ~a" key) ctx blame-stx))
142 (raise-syntax-error #f "expected identifier" stx #'name))
154 [_ (raise-syntax-error #f "bad syntax" stx)])]
181 (raise-syntax-error #f
199 For the expansion of the define-literal-set form, the bindings of the literals
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/cs/ |
| H A D | chezpart.sls | 1 ;; Reexports from `chezscheme` bindings that won't be replaced
66 [procedure-arity-mask chez:procedure-arith-mask]
74 [current-error-port chez:current-error-port]
83 [error chez:error]
84 [raise chez:raise]
|
| /dports/lang/racket/racket-8.3/src/cs/ |
| H A D | chezpart.sls | 1 ;; Reexports from `chezscheme` bindings that won't be replaced
66 [procedure-arity-mask chez:procedure-arith-mask]
74 [current-error-port chez:current-error-port]
83 [error chez:error]
84 [raise chez:raise]
|
| /dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/http/ |
| H A D | request-structs.rkt | 37 [request-bindings/raw
55 [bindings-assq
57 [bindings-assq-all
107 (define (request-bindings/raw r)
132 (define (bindings-assq ti bs)
212 (raise-arguments-error
227 (raise-argument-error
246 (raise-arguments-error
255 (raise-arguments-error
269 (if (eqv? 1 (procedure-arity struct-type-make-constructor))
[all …]
|