| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a116/ |
| H A D | ilists.scm | 163 (apply proc '()))
165 (apply proc (ilist->list (car ilists))))
195 (begin (apply proc (map icar lists))
581 (lp cdrs (apply kons cars+ans)))))
594 (apply kons (%cars+ ilists (recur cdrs))))))
608 (apply f (append ilists (list (recur cdrs)))))))
655 (let ((vals (apply f cars)))
675 (begin (apply proc ilists)
691 (cond ((apply f cars) => (lambda (x) (ipair x (recur cdrs))))
710 (let ((x (apply f cars))) ; Do head first,
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/kawa/lib/rnrs/ |
| H A D | lists.scm | 32 (let recur ((lists lists))
53 (let recur ((lists lists))
62 (let recur ((lists lists))
106 (and (apply proc heads) (lp next-heads next-tails))
107 (apply proc heads)))))) ; Last PROC app is tail call.
140 (or (apply proc heads) (lp next-heads next-tails))
141 (apply proc heads)))))) ; Last PROC app is tail call.
211 (lp cdrs (apply combine ans cars)))))
238 (apply combine (%cars+ lists (recur cdrs))))))
292 (let recur ((list lst))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/srfi-lite-lib/srfi/1/ |
| H A D | fold.rkt | 69 (apply error "Too many arguments" unfold p f g seed maybe-tail-gen)
83 (lp cdrs (apply kons cars+ans)))))
94 (apply kons (%cars+ lists (recur cdrs))))))
107 (apply f (append lists (list (recur cdrs)))))))
117 (lp tails (apply f (append lists (list ans)))))))
154 (let ((vals (apply f cars)))
170 (when (pair? tails) (apply proc lists) (lp tails))))
186 (set-car! lis1 (apply f (car lis1) heads))
199 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
219 (let ((x (apply f cars))) ; Do head first,
[all …]
|
| /dports/lang/scheme48/scheme48-1.9.2/scheme/r6rs/ |
| H A D | list.scm | 22 (apply assertion-violation who
40 (apply proc (car list) (map car lists)))
41 ((apply proc (car list) (map car lists))
67 (apply proc (car list) (map car lists))
68 (or (apply proc (car list) (map car lists))
110 (loop (apply combine accum (car list) (map car lists))
131 (apply combine
138 (let recur ((list list))
145 (let recur ((list list) (res '()))
157 (let recur ((list list) (res '()))
[all …]
|
| /dports/lang/scheme48/scheme48-1.9.2/scheme/srfi/ |
| H A D | srfi-1.scm | 250 (else (apply assertion-violation
849 (apply assertion-violation 'unfold
868 (lp cdrs (apply kons cars+ans)))))
881 (apply kons (%cars+ lists (recur cdrs))))))
895 (apply f (append! lists (list (recur cdrs)))))))
946 (let ((vals (apply f cars)))
966 (begin (apply proc lists)
983 (set-car! lis1 (apply f (car lis1) heads))
998 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1046 (apply f cars) ; Do head first,
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/japanese/uim-anthy/sigscheme-beb8fbd/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/lib/ |
| H A D | srfi-1.scm | 827 (if (apply pred (car list1) as) (+ i 1) i))))))
873 (lp cdrs (apply kons cars+ans)))))
886 (apply kons (%cars+ lists (recur cdrs))))))
900 (apply f (append! lists (list (recur cdrs)))))))
951 (let ((vals (apply f cars)))
971 (begin (apply proc lists)
988 (set-car! lis1 (apply f (car lis1) heads))
1003 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
1025 (let ((x (apply f cars))) ; Do head first,
1043 (apply map-in-order args)
[all …]
|
| /dports/lang/kawa/kawa-3.1.1/gnu/kawa/slib/ |
| H A D | srfi1.scm | 820 (if (apply pred (car list1) a-s)
862 (lp cdrs (apply kons cars+ans)))))
874 (apply kons (%cars+ lists (recur cdrs))))))
887 (apply f (append! lists (list (recur cdrs)))))))
926 (apply append (apply map f lis1 lists))
927 (apply append (map f lis1))))
931 (apply append! (apply map f lis1 lists))
932 (apply append! (map f lis1))))
940 (begin (apply proc lists)
958 (set-car! lis1 (apply f (car lis1) heads))
[all …]
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/ |
| H A D | srfi-1.scm | 372 (if (apply pred (car list1) as)
378 (apply map list list1 more-lists))
461 (apply f (append! lists (list (recur cdrs)))))))
473 (apply proc lists)
502 (cond ((apply f cars) => (lambda (x) (cons x (recur cdrs))))
522 (let ((x (apply f cars)))
770 (or (apply pred heads)
772 (apply pred heads))))))
787 (and (apply pred heads)
789 (apply pred heads))))))
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a1/ |
| H A D | lists.scm | 981 (apply f (append! lists (list (recur cdrs)))))))
1028 (let ((vals (apply f cars)))
1048 (begin (apply proc lists)
1504 (apply pred head)
1505 (and (apply pred head)
1523 ((apply list-transpose* lst1 lst2)
1547 (apply pred head)
1548 (or (apply pred head)
1569 (apply pred head)
1570 (or (apply pred head)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/static-contracts/combinators/ |
| H A D | function.rkt | 28 (define (hash-proc v recur) (function-sc-hash v recur))
29 (define (hash2-proc v recur) (function-sc-hash2 v recur))]
52 (apply split-function-args args indices))
55 (apply split-function-args (map recur args) indices))
118 (apply split-function-args args indices))
131 (apply split-function-args args indices))
148 (apply split-function-args args indices))
161 (apply split-function-args args indices))
180 (recur a-args b-args)))
184 (+ (recur v-indices) (recur v-mand-kws) (recur v-opt-kws) (recur v-args)))
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/libsrc/ |
| H A D | srfi-1.scm | 92 (define (zip list1 . more-lists) (apply map list list1 more-lists))
97 (let recur ((lis lis))
105 (let recur ((lis lis))
114 (let recur ((lis lis))
124 (let recur ((lis lis))
214 (apply error "Too many arguments" unfold p f g seed maybe-tail-gen)
229 (apply f (append! lists (list (recur cdrs)))))))
239 (lp tails (apply f (append! lists (list ans)))))))
256 (begin (apply proc lists)
272 (set-car! lis1 (apply f (car lis1) heads))
[all …]
|
| /dports/lang/slib/slib-3b6/ |
| H A D | srfi-1.scm | 172 (apply take-right lst k)))
235 (apply fold (cons* f (apply f (append! (map car l) (list z)))
296 (begin (apply proc lists)
317 (let recur ((lis lis))
333 (let recur ((lis lis))
338 (lambda () (recur tail))
377 (let recur ((lis lis))
616 (let recur ((lists lists))
633 (let recur ((lists lists))
650 (let recur ((lists lists))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/deinprogramm-signature/deinprogramm/signature/ |
| H A D | signature.rkt | 12 apply-signature apply-signature/blame
45 (lambda (r recur)
46 (+ (recur (signature-name r))
47 (* 33 (recur (signature-enforcer r)))))
48 (lambda (r recur)
49 (+ (* 33 (recur (signature-name r)))
50 (recur (signature-enforcer r)))))
119 (apply-signature sig val)))))
130 (define-syntax apply-signature/blame
139 (apply-signature ?cnt-exp
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/ |
| H A D | get-references.rkt | 24 (define (recur . args)
31 (apply recur arg)
33 (define (recur/phase-up . args)
35 (apply recur args)))
101 (recur rhs)]
104 ;; Otherwise, recur through children
105 [deriv (for-subnodes deriv #:recur recur #:recur/phase-up recur/phase-up)]))
|
| /dports/lang/guile2/guile-2.2.7/module/srfi/ |
| H A D | srfi-41.scm | 218 (stream-let recur ((objs objs))
224 (stream-let recur ()
256 (stream-let recur ((strms strms))
277 (objs (list->stream (apply circular-list objs)))))
319 (stream-let recur ((strm strm))
344 (apply proc (map stream-car strms)))))))
354 (stream-let recur ((base base))
376 (stream-cons (apply proc (map stream-car strms))
467 (stream-let recur ((strm strm))
477 (stream-let recur ((base base))
[all …]
|
| /dports/lang/guile/guile-3.0.7/module/srfi/ |
| H A D | srfi-41.scm | 218 (stream-let recur ((objs objs))
224 (stream-let recur ()
256 (stream-let recur ((strms strms))
277 (objs (list->stream (apply circular-list objs)))))
319 (stream-let recur ((strm strm))
344 (apply proc (map stream-car strms)))))))
354 (stream-let recur ((base base))
376 (stream-cons (apply proc (map stream-car strms))
467 (stream-let recur ((strm strm))
477 (stream-let recur ((base base))
[all …]
|