| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/optimize/ |
| H A D | rest.scm | 7 => (lambda (cdrs)
11 cdrs)))
24 cdrs)))
32 cdrs)))
42 (define (recurse x cdrs) (analyze x cdrs safe?))
46 cdrs))
48 (and (recurse ref cdrs) (recurse value cdrs)))
56 (let ((cdrs (fold-every recurse cdrs args)))
58 (recurse body (append (adjust-cdrs cdrs f params args) cdrs)))))
61 cdrs
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/srfi-lite-lib/srfi/1/ |
| H A D | fold.rkt | 81 (let-values ([(cars+ans cdrs) (%cars+cdrs+ lists ans)])
92 (let ((cdrs (%cdrs lists)))
93 (if (null? cdrs) knil
105 (let ((cdrs (%cdrs lists)))
106 (if (null? cdrs) zero
151 (let-values ([(cars cdrs) (%cars+cdrs (cons lis1 lists))])
153 (let recur ((cars cars) (cdrs cdrs))
155 (let-values ([(cars2 cdrs2) (%cars+cdrs cdrs)])
197 (let-values ([(cars cdrs) (%cars+cdrs lists)])
217 (let-values ([(cars cdrs) (%cars+cdrs lists)])
[all …]
|
| H A D | util.rkt | 31 (provide %cdrs
33 %cars+cdrs
34 %cars+cdrs+
35 %cars+cdrs/no-test)
57 (define (%cdrs lists)
71 ;; Return two lists: the cars & the cdrs of the lists.
74 (define (%cars+cdrs lists)
87 (define (%cars+cdrs+ lists cars-final)
99 (define (%cars+cdrs/no-test lists)
104 [(cars cdrs) (recur other-lists)])
[all …]
|
| /dports/databases/p5-DBIx-Class/DBIx-Class-0.082842/t/search/ |
| H A D | subquery.t | 14 my $cdrs = $schema->resultset('CD');
18 rs => $cdrs,
30 rs => $cdrs,
44 $cdrs->search({}, { rows => 1 })->get_column('id')->as_query,
57 $cdrs->search({}, { rows => 1 })->get_column('id')->as_query,
67 rs => $cdrs,
100 rs => $cdrs,
104 { cd2 => $cdrs->search(
129 rs => $cdrs,
132 '=' => $cdrs->search(
[all …]
|
| /dports/lang/slib/slib-3b6/ |
| H A D | qp.scm | 49 (lambda (cdrs room)
51 ((null? cdrs) 0)
52 ((not (pair? cdrs))
54 (+ 3 (qp-obj cdrs (l-elt-room (- room 3) cdrs))))
58 (+ (qp-pairs (cdr cdrs) (- room used)) used))
59 (+ 1 (qp-obj (car cdrs) (l-elt-room (- room 1) cdrs)))))
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/slib/ |
| H A D | qp.scm | 56 (lambda (cdrs room)
58 ((null? cdrs) 0)
59 ((not (pair? cdrs))
61 (+ 3 (qp-obj cdrs (l-elt-room (- room 3) cdrs))))
65 (+ (qp-pairs (cdr cdrs) (- room used)) used))
66 (+ 1 (qp-obj (car cdrs) (l-elt-room (- room 1) cdrs)))))
|
| /dports/databases/p5-DBIx-Class/DBIx-Class-0.082842/t/delete/ |
| H A D | related.t | 11 my $cdrs = $schema->resultset('CD');
22 $cdrs->populate ([
33 my $prod_cd = $cdrs->find (70);
39 my $total_cds = $cdrs->count;
43 is ($cdrs->count, $total_cds -= 1, 'related delete ok');
49 is ($cdrs->count, $total_cds -= 2, 'related + condition delete ok');
53 is ($cdrs->count, $total_cds -= 1, 'related + limit delete ok');
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/model/ |
| H A D | context.rkt | 11 path-add-cdrs
30 ;; - PositiveInteger -- represents nth tail (n cdrs, n>0)
40 (define (-path-add-cdrs n p) (path-add-tail n p))
55 (define-match-expander path-add-cdrs
59 (make-variable-like-transformer #'-path-add-cdrs))
71 [(path-add-cdrs (? exact-positive-integer? n) path)
86 [(path-add-cdrs (? exact-positive-integer? n) path)
103 [(path-add-cdrs (? exact-positive-integer? n) path)
140 [[(path-add-cdrs n1 p1b) (path-add-cdrs n2 p2b)]
142 [(< n1 n2) (loop p1b (path-add-cdrs (- n2 n1) p2b))]
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/kawa/lib/rnrs/ |
| H A D | lists.scm | 37 ((cars cdrs) (recur other-lists)))
38 (values (cons a cars) (cons d cdrs)))))
45 (let-values (((cars cdrs) (%cars+cdrs lists)))
46 (cons cars cdrs)))
209 (let-values (((cars cdrs) (%cars+cdrs lists)))
211 (lp cdrs (apply combine ans cars)))))
236 (let ((cdrs (%cdrs lists)))
237 (if (null? cdrs) nil
238 (apply combine (%cars+ lists (recur cdrs))))))
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/ |
| H A D | stream.scm | 110 (receive (cars cdrs) (split-streams streams 'STREAM-MAP)
113 (loop (map force cdrs)))
135 (receive (cars cdrs) (split-streams streams 'STREAM-FOR-EACH)
139 (loop (map force cdrs))))))
149 (cdrs (list 'CDRS)))
150 (let loop ((streams streams) (cars-tail cars) (cdrs-tail cdrs) (n 0))
163 (values (cdr cars) (cdr cdrs))))))
177 (receive (cars cdrs) (split-streams streams 'STREAM-APPEND-MAP)
180 (delay (loop (map force cdrs))))
|
| H A D | srfi-1.scm | 458 (let ((cdrs (%cdrs lists)))
459 (if (null? cdrs)
500 (receive (cars cdrs) (%cars+cdrs lists)
519 (receive (cars cdrs) (%cars+cdrs lists)
523 (cons x (recur cdrs)))
1002 (let loop ((lists lists) (cdrs '()))
1007 (cons (cdar lists) cdrs)))
1008 (reverse! cdrs))))
1027 (cons (cdar lists) cdrs)))
1040 (cons (cdar lists) cdrs)))
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | 4.ss | 80 ; getcxrs returns the cdrs of ls and their cars
85 (let-values ([(cdrs cars) (getcxrs (cdr ls) who)])
88 (values (cons d cdrs) (cons (car d) cars)))))))
155 ; library map cdrs first to avoid getting sick if f mutates input
161 ; library map cdrs first to avoid getting sick if f mutates input
179 ; library map cdrs first to avoid getting sick if f mutates input
185 ; library map cdrs first to avoid getting sick if f mutates input
221 (let-values ([(cdrs cars) (getcxrs more who)])
222 (for-each (fx- n 1) ls cdrs cars))))))))]))
250 (let-values ([(cdrs cars) (getcxrs more who)])
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/src/ |
| H A D | liblist.scm | 245 (receive (cars cdrs) (%zip-nary-args xss)
260 (loop cdrs))))))
315 [cdrs '()])
318 (reverse! cdrs))]
399 [else (loop cdrs)])))))
451 (receive (cars cdrs)
455 [else (loop cdrs r)])))))
462 (receive (cars cdrs)
465 (loop cdrs (apply kons cars))
473 (receive (cars- cdrs)
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | 4.ss | 80 ; getcxrs returns the cdrs of ls and their cars
85 (let-values ([(cdrs cars) (getcxrs (cdr ls) who)])
88 (values (cons d cdrs) (cons (car d) cars)))))))
155 ; library map cdrs first to avoid getting sick if f mutates input
161 ; library map cdrs first to avoid getting sick if f mutates input
179 ; library map cdrs first to avoid getting sick if f mutates input
185 ; library map cdrs first to avoid getting sick if f mutates input
221 (let-values ([(cdrs cars) (getcxrs more who)])
222 (for-each (fx- n 1) ls cdrs cars))))))))]))
250 (let-values ([(cdrs cars) (getcxrs more who)])
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | 4.ss | 80 ; getcxrs returns the cdrs of ls and their cars
85 (let-values ([(cdrs cars) (getcxrs (cdr ls) who)])
88 (values (cons d cdrs) (cons (car d) cars)))))))
155 ; library map cdrs first to avoid getting sick if f mutates input
161 ; library map cdrs first to avoid getting sick if f mutates input
179 ; library map cdrs first to avoid getting sick if f mutates input
185 ; library map cdrs first to avoid getting sick if f mutates input
221 (let-values ([(cdrs cars) (getcxrs more who)])
222 (for-each (fx- n 1) ls cdrs cars))))))))]))
250 (let-values ([(cdrs cars) (getcxrs more who)])
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a116/ |
| H A D | ilists.scm | 523 (values (cons a cars) (cons d cdrs)))))
581 (lp cdrs (apply kons cars+ans)))))
592 (let ((cdrs (%cdrs ilists)))
593 (if (null? cdrs) knil
606 (let ((cdrs (%cdrs ilists)))
607 (if (null? cdrs) zero
654 (let recur ((cars cars) (cdrs cdrs))
656 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
689 (receive (cars cdrs) (%cars+cdrs ilists)
708 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/lang/scheme48/scheme48-1.9.2/scheme/srfi/ |
| H A D | srfi-1.scm | 868 (lp cdrs (apply kons cars+ans)))))
879 (let ((cdrs (%cdrs lists)))
880 (if (null? cdrs) knil
893 (let ((cdrs (%cdrs lists)))
894 (if (null? cdrs) zero
945 (let recur ((cars cars) (cdrs cdrs))
996 (receive (cars cdrs) (%cars+cdrs lists)
1018 (receive (cars cdrs) (%cars+cdrs lists)
1021 (cons x (recur cdrs))) ; then tail.
1043 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 810 (receive (cars cdrs) (recur other-lists)
873 (lp cdrs (apply kons cars+ans)))))
884 (let ((cdrs (%cdrs lists)))
885 (if (null? cdrs) knil
898 (let ((cdrs (%cdrs lists)))
899 (if (null? cdrs) zero
950 (let recur ((cars cars) (cdrs cdrs))
952 (receive (cars2 cdrs2) (%cars+cdrs cdrs)
1001 (receive (cars cdrs) (%cars+cdrs lists)
1023 (receive (cars cdrs) (%cars+cdrs lists)
[all …]
|