Home
last modified time | relevance | path

Searched refs:lis1 (Results 1 – 25 of 253) sorted by relevance

1234567891011

/dports/lang/mit-scheme/mit-scheme-9.2/src/runtime/
H A Dsrfi-1.scm486 (let lp ((lis1 lis1) (lists lists))
489 (set-car! lis1 (apply f (car lis1) heads))
492 lis1))
493 lis1)
774 (let lp ((head (car lis1)) (tail (cdr lis1)))
791 (let lp ((head (car lis1)) (tail (cdr lis1)))
885 lis1)))))
896 lis1)))))
905 lis1)))))
914 lis1)))))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/srfi-lite-lib/srfi/1/
H A Dfold.rkt159 (if (null-list? lis1) '()
160 (let recur ((elt (car lis1)) (rest (cdr lis1)))
172 (let lp ((lis lis1))
180 (define (map! f lis1 . lists)
183 (let lp ((lis1 lis1) (lists lists))
184 (if (not (null-list? lis1))
186 (set-car! lis1 (apply f (car lis1) heads))
190 lis1)
203 (let recur ((lis lis1))
223 (let recur ((lis lis1))
[all …]
H A Dlset.rkt58 (define (%lset2<= = lis1 lis2) (every (lambda (x) (s:member x lis2 =)) lis1))
123 lis1)))))
133 lis1)))))
135 (define (lset-difference = lis1 . lists)
143 lis1)))))
146 (define (lset-difference! = lis1 . lists)
154 lis1)))))
202 ((memq lis1 lists) (values '() lis1)) ; Short cut
206 lis1))))
212 ((memq lis1 lists) (values '() lis1)) ; Short cut
[all …]
H A Dsearch.rkt120 (define (any pred lis1 . lists)
124 (let-values ([(heads tails) (%cars+cdrs (cons lis1 lists))])
132 (and (not (null-list? lis1))
133 (let lp ((head (car lis1)) (tail (cdr lis1)))
144 (define (every pred lis1 . lists)
148 (let-values ([(heads tails) (%cars+cdrs (cons lis1 lists))])
156 (or (null-list? lis1)
157 (let lp ((head (car lis1)) (tail (cdr lis1)))
162 (define (list-index pred lis1 . lists)
166 (let lp ((lists (cons lis1 lists)) (n 0))
[all …]
/dports/lang/gauche/Gauche-0.9.10/libsrc/
H A Dsrfi-1.scm260 (let lp ((lis lis1))
267 (define (map! f lis1 . lists)
269 (let lp ((lis1 lis1) (lists lists))
270 (if (not (null-list? lis1))
272 (set-car! lis1 (apply f (car lis1) heads))
277 lis1)
395 (let lp ((lis lis1) (n 0))
413 (define (%lset2<= = lis1 lis2) (every (^x (member x lis2 =)) lis1))
480 lis1)))))
561 ((memq lis1 lists) (values '() lis1)) ; Short cut
[all …]
/dports/math/maxima/maxima-5.43.2/interfaces/xmaxima/Tkmaxima/
H A DMacros.tcl17 proc desetq {lis1 lis2} {
19 foreach v $lis1 {
77 proc intersect { lis1 lis2 } {
79 foreach v $lis1 { set there($v) 1 }
105 set lis1 [lrange $args 0 [expr {[llength $args] -2}]]
106 foreach v [lindex $args end] { lappend lis1 $v}
107 set lis1 [linsert $lis1 0 $f]
108 uplevel 1 $lis1
/dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-gtk/sigscheme-beb8fbd/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-qt5/sigscheme-beb8fbd/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-gtk3/sigscheme-beb8fbd/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-m17nlib/sigscheme-beb8fbd/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/japanese/uim-anthy/sigscheme-beb8fbd/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/lib/
H A Dsrfi-1.scm958 (let recur ((elt (car lis1)) (rest (cdr lis1)))
985 (let lp ((lis1 lis1) (lists lists))
988 (set-car! lis1 (apply f (car lis1) heads))
993 lis1)
1398 (let lp ((head (car lis1)) (tail (cdr lis1)))
1425 (let lp ((head (car lis1)) (tail (cdr lis1)))
1541 lis1)))))
1550 lis1)))))
1561 lis1)))))
1571 lis1)))))
[all …]
/dports/lang/kawa/kawa-3.1.1/gnu/kawa/slib/
H A Dsrfi1.scm953 (let lp ((lis1 lis1) (lists lists))
958 (set-car! lis1 (apply f (car lis1) heads))
963 lis1)
1363 (let lp ((head (car lis1)) (tail (cdr lis1)))
1389 (let lp ((head (car lis1)) (tail (cdr lis1)))
1397 (let lp ((head (car lis1)) (tail (cdr lis1)))
1504 lis1)))))
1512 lis1)))))
1522 lis1)))))
1531 lis1)))))
[all …]
/dports/lang/scheme48/scheme48-1.9.2/scheme/srfi/
H A Dsrfi-1.scm953 (let recur ((elt (car lis1)) (rest (cdr lis1)))
980 (let lp ((lis1 lis1) (lists lists))
983 (set-car! lis1 (apply f (car lis1) heads))
988 lis1)
1408 (let lp ((head (car lis1)) (tail (cdr lis1)))
1435 (let lp ((head (car lis1)) (tail (cdr lis1)))
1551 lis1)))))
1560 lis1)))))
1571 lis1)))))
1581 lis1)))))
[all …]
/dports/japanese/skk-tools/skktools-1.3.3/
H A Dskkdic-diff.scm23 (define (lcs-edit-list2 lis1 lis2)
52 (define (manuediff lis1 lis2)
53 (let loop ((el (lcs-edit-list2 lis1 lis2))
72 (define (skkdic-diff lis1 lis2)
138 (let loop ((lis1 lis1) (lis2 lis2))
139 (let ((l1 (if (null? lis1) #f (car lis1)))
144 (loop lis1 (cdr lis2)))
147 (loop (cdr lis1) lis2))
149 (loop (cdr lis1) (cdr lis2)))
154 (loop (cdr lis1) lis2))
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a1/
H A Dlists.scm1035 (let recur ((elt (car lis1)) (rest (cdr lis1)))
1062 (let lp ((lis1 lis1) (lists lists))
1065 (set-car! lis1 (apply f (car lis1) heads))
1070 lis1)
1685 (define (%lset2<= = lis1 lis2) (every (lambda (x) (member x lis2 =)) lis1))
1736 lis1)))))
1746 lis1)))))
1797 ((memq lis1 lists) (values '() lis1)) ; Short cut
1801 lis1))))
1806 ((memq lis1 lists) (values '() lis1)) ; Short cut
[all …]
/dports/net/rclone/rclone-1.57.0/vendor/google.golang.org/grpc/xds/internal/test/
H A Dxds_server_serving_mode_test.go113 lis1, err := xdstestutils.LocalTCPListener()
124 host1, port1, err := hostPortFromListener(lis1)
143 if err := server.Serve(lis1); err != nil {
154 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
162 …cc1, err := grpc.DialContext(ctx, lis1.Addr().String(), grpc.WithTransportCredentials(insecure.New…
222 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeNotServing); err != nil {
243 …if _, err := grpc.DialContext(sCtx, lis1.Addr().String(), grpc.WithBlock(), grpc.WithTransportCred…
256 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
/dports/net/drive/drive-0.4.0/vendor/google.golang.org/grpc/xds/internal/test/
H A Dxds_server_serving_mode_test.go113 lis1, err := xdstestutils.LocalTCPListener()
124 host1, port1, err := hostPortFromListener(lis1)
143 if err := server.Serve(lis1); err != nil {
154 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
162 …cc1, err := grpc.DialContext(ctx, lis1.Addr().String(), grpc.WithTransportCredentials(insecure.New…
222 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeNotServing); err != nil {
243 …if _, err := grpc.DialContext(sCtx, lis1.Addr().String(), grpc.WithBlock(), grpc.WithTransportCred…
256 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
/dports/www/gitlab-workhorse/gitlab-foss-0a901d60f8ae4a60c04ae82e6e9c3a03e9321417/workhorse/vendor/google.golang.org/grpc/xds/internal/test/
H A Dxds_server_serving_mode_test.go113 lis1, err := xdstestutils.LocalTCPListener()
124 host1, port1, err := hostPortFromListener(lis1)
143 if err := server.Serve(lis1); err != nil {
154 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
162 …cc1, err := grpc.DialContext(ctx, lis1.Addr().String(), grpc.WithTransportCredentials(insecure.New…
222 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeNotServing); err != nil {
243 …_, err = grpc.DialContext(sCtx, lis1.Addr().String(), grpc.WithBlock(), grpc.WithTransportCredenti…
257 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
/dports/www/gohugo/hugo-0.91.2/vendor/google.golang.org/grpc/xds/internal/test/
H A Dxds_server_serving_mode_test.go113 lis1, err := xdstestutils.LocalTCPListener()
124 host1, port1, err := hostPortFromListener(lis1)
143 if err := server.Serve(lis1); err != nil {
154 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
162 …cc1, err := grpc.DialContext(ctx, lis1.Addr().String(), grpc.WithTransportCredentials(insecure.New…
222 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeNotServing); err != nil {
243 …if _, err := grpc.DialContext(sCtx, lis1.Addr().String(), grpc.WithBlock(), grpc.WithTransportCred…
256 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
/dports/net-mgmt/prometheus2/prometheus-2.30.3/vendor/google.golang.org/grpc/xds/internal/test/
H A Dxds_server_serving_mode_test.go113 lis1, err := xdstestutils.LocalTCPListener()
124 host1, port1, err := hostPortFromListener(lis1)
143 if err := server.Serve(lis1); err != nil {
154 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {
162 …cc1, err := grpc.DialContext(ctx, lis1.Addr().String(), grpc.WithTransportCredentials(insecure.New…
222 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeNotServing); err != nil {
243 …if _, err := grpc.DialContext(sCtx, lis1.Addr().String(), grpc.WithBlock(), grpc.WithTransportCred…
256 if err := waitForModeChange(ctx, modeTracker, lis1.Addr(), xds.ServingModeServing); err != nil {

1234567891011