| /dports/lang/racket/racket-8.3/share/pkgs/htdp-lib/2htdp/private/ |
| H A D | clauses-spec-and-process.rkt | 106 ; (syntax->list (cdar spec))
109 (for/list ([i (syntax->list (cdar spec))])
112 (cdar spec))]
170 (raise-syntax-error tag (format "duplicate ~a clause" id) (cdar x))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/mathpr/ |
| H A D | specprin.red | 118 m := max(cdar w1, cdar w2, 3);
126 o1 := (m - cdar w1)/2 + posn!* - orig!*;
127 o2 := (m - cdar w2)/2 + posn!* - orig!*;
|
| /dports/lang/gambit-c/gambit-4.9.3/contrib/GambitREPL/ |
| H A D | wiki.scm | 223 (cdar (table->list pages)))
270 (cdar (table->list pages)))
281 (cdar (table->list revision1))))
305 (cdar (table->list pages)))
|
| /dports/audio/snd/snd-21.2/ |
| H A D | write.scm | 90 (if (and (pair? (cdar p))
93 (write (cdar p) port))
221 (let ((has=> (and (pair? (cdar lst))
223 (let ((extras (and (pair? (cdar lst))
227 (too-long (> (length (object->string (cdar lst))) 50)))
235 (if (and (pair? (cdar lst))
239 (if (and (pair? (cdar lst))
248 (if (not (null? (cdar lst)))
249 (stacked-list port (cdar lst) (+ column 7)))))
|
| /dports/lang/chicken5/chicken-5.3.0/tests/ |
| H A D | loopy-loop.scm | 388 (ls2 (append (reverse (cdar ls))
391 (cons (caaar ls) (cdar ls)))
438 (if (and (pair? (car p)) (pair? (cdar p)))
439 (cons (cdar p) (cdr p))
442 (if (> (length (cdar ls)) count)
445 (res (cons (cdar ls) (cdr ls))))
470 ((pair? (cdar p))
472 (cons (cdar p) (cdr p)))
514 (val (cdar cell)))
|
| /dports/math/reduce/Reduce-svn5758-src/vsl/ |
| H A D | buildreduce.lsp | 1294 if not roughly_equal(cdar d1, cdar d2) then return nil;
1298 if not roughly_equal(cdar d1, cdar d2) then return nil;
1302 if not roughly_equal(cdar d1, cdar d2) then return nil;
1406 if roughly_equal(cdar d1, cdar d2) then <<
1413 if cdar d1 = "" and cdr d1 and roughly_equal(cdadr d1, cdar d2) then <<
1418 else if cdar d1 = "" and cdr d1 and cdadr d1 = "" and cddr d1 and
1419 roughly_equal(cdaddr d1, cdar d2) then <<
1426 else if cdar d2 = "" and cdr d2 and
1427 roughly_equal(cdadr d2, cdar d1) then <<
1432 else if cdar d2 = "" and cdr d2 and cdadr d2 = "" and cddr d2 and
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/csl/cslbase/ |
| H A D | buildreduce.lsp | 1278 if not roughly_equal(cdar d1, cdar d2) then return nil;
1282 if not roughly_equal(cdar d1, cdar d2) then return nil;
1286 if not roughly_equal(cdar d1, cdar d2) then return nil;
1390 if roughly_equal(cdar d1, cdar d2) then <<
1397 if cdar d1 = "" and cdr d1 and roughly_equal(cdadr d1, cdar d2) then <<
1402 else if cdar d1 = "" and cdr d1 and cdadr d1 = "" and cddr d1 and
1403 roughly_equal(cdaddr d1, cdar d2) then <<
1410 else if cdar d2 = "" and cdr d2 and
1411 roughly_equal(cdadr d2, cdar d1) then <<
1416 else if cdar d2 = "" and cdr d2 and cdadr d2 = "" and cddr d2 and
[all …]
|
| /dports/graphics/djvulibre/djvulibre-3.5.28/doc/minilisp/ |
| H A D | minilisp.in | 87 (if (= (length (cdar a)) 1)
88 (list (car (cdar a)) r)
89 (list (cons 'progn (cdar a)) r) ) )))
|
| /dports/lang/gscheme/GScheme/examples/ |
| H A D | qsort1.scm | 148 (let ((frac (/ (cdar h) total)))
162 (let ((frac (/ (cdar h) total)))
164 (draw-string (format "~a" (cdar h)))
|
| /dports/lang/scheme48/scheme48-1.9.2/scheme/bcomp/ |
| H A D | module-language.scm | 156 (append opens (cdar clauses))
163 (append (cdar clauses) accesses)
170 (append (cdar clauses) for-syntaxes)
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | sublis.lisp | 58 (setf (symbol-plist temp) (list* *msublis-marker* (cdar x) (symbol-plist temp)))
60 (setf (symbol-plist temp1) (list* *msublis-marker* (cdar x) (symbol-plist temp1)))
|
| H A D | rat3d.lisp | 324 ((and (not gauss)(member 'irreducible (cdar l) :test #'eq))(return l))
325 ((and gauss (member 'irreducibleg (cdar l) :test #'eq)) (return l))
326 ((and (not gauss)(member 'factored (cdar l) :test #'eq))(return l))
327 ((and gauss (member 'gfactored (cdar l) :test #'eq)) (return l)))
370 ((equal (cdar cont) 1) (list (caar cont) 1))
371 (t (list (caar cont) 1 (cdar cont) -1))))
452 (cond ((or (atom x) (member 'irreducible (cdar x) :test #'eq)) x)
|
| /dports/games/aisleriot/aisleriot-3.22.19/games/ |
| H A D | freecell.scm | 599 (next-moves (vector-ref (cdar best-move) index-moves)))
602 (if (> (vector-ref (cdar best-move) index-depth)
630 (if (eq? (vector-ref (cdar best-move) index-outcome) outcome-lose)
733 (> (vector-ref (cdar left) index-value)
734 (vector-ref (cdar right) index-value)))
833 (if (= (vector-ref (cdar move) index-value) 0)
835 (cdar move) index-value
941 (let ((info (cdar move))
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/compiler/base/ |
| H A D | pmerly.scm | 161 (receiver 'MAYBE (cdar bindings)))
232 (cdar evaluation)
304 (let ((binding (cdar bindings)))
404 '((car (caar . cdar) car)
409 (cdar (cadar . cddar) cdr car)
414 (cadar (caadar . cdadar) car cdar)
418 (cddar (caddar . cdddar) cdr cdar)
|
| /dports/math/reduce/Reduce-svn5758-src/packages/factor/ |
| H A D | degsets.red | 51 getv(valid!-image!-sets,cdar w);
52 degs:=for each v in getv(modular!-info,cdar w) collect ldeg v;
58 best!-set!-pointer:=cdar split!-list;
63 best!-set!-pointer:=cdar split!-list;
|
| /dports/editors/texmacs/TeXmacs-1.99.4-src/TeXmacs/progs/kernel/gui/ |
| H A D | kbd-define.scm | 40 ((ahash-ref lazy-keyboard-done (cdar l))
43 (module-provide (cdar l))
44 (ahash-set! lazy-keyboard-done (cdar l) #t)
238 (if (not (has-look-and-feel? (cdar l))) '((noop))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/algint/ |
| H A D | substns.red | 60 if cdar slist iequal 0
66 else if not (caar slist = cdar slist)
69 (car u).subst(cdar slist,caar slist,cdr u)
|
| /dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/ |
| H A D | string.rkt | 126 (loop (cdar ps) (cdr ps)
128 (cons (if (= 1 (- (cdar ps) (caar ps)))
130 (sub glob (caar ps) (cdar ps)))
|
| /dports/lang/racket/racket-8.3/share/pkgs/srfi-lite-lib/srfi/ |
| H A D | provider.rkt | 44 (printf "Renaming: ~a -> ~a\n" s (substring s (cdar m))))
47 (string->symbol (substring s (cdar m)))
|
| /dports/lang/racket/racket-8.3/share/pkgs/scribble-lib/scribble/ |
| H A D | comment-reader.rkt | 82 (list `(hspace ,(- (cdar m) (caar m))))
83 (preserve-space (substring s (cdar m))))
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | pairs.test | 44 (pass-if "cdar"
45 (= (cdar x) 3))
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | pairs.test | 44 (pass-if "cdar"
45 (= (cdar x) 3))
|
| /dports/audio/festival-freebsoft-utils/festival-freebsoft-utils-0.10/ |
| H A D | oo.scm | 31 (cdar wrappers))
79 (cdar (last (symbol-value wrappers-var)))
|
| /dports/math/maxima/maxima-5.43.2/share/sym/ |
| H A D | lecteur.lisp | 46 (cdar pol_dist) ; le monome initial
53 (t (let ((c2 (caar (cdr pol_dist))) (m2 (cdar (cdr pol_dist))))
|
| /dports/lang/racket/racket-8.3/src/io/logger/ |
| H A D | level.rkt | 76 (cdar filters)]
88 (level-max best-level (cdar filters)))]
|