Home
last modified time | relevance | path

Searched +refs:cons +refs:exp (Results 1 – 25 of 3881) sorted by relevance

12345678910>>...156

/dports/lang/mosh/mosh-0.2.7/misc/bench/gambit-benchmarks/
H A Dpeval.scm39 (cons (car exp) (map alpha (cdr exp))))
145 (cons (car exp) (map bs (cdr exp))))
198 (let ((new-env (cons exp env)))
239 (simp! (cddr exp) (cons exp env)))
254 (cons (add-binding new-proc frame (car exp))
282 (let ((new-env (cons exp env)))
394 (cons '+ (lambda (args)
397 (cons '* (lambda (args)
400 (cons '- (lambda (args)
406 (cons '/ (lambda (args)
[all …]
/dports/lang/gambit-c/gambit-4.9.3/bench/src/
H A Dpeval.scm39 (cons (car exp) (map alpha (cdr exp))))
145 (cons (car exp) (map bs (cdr exp))))
198 (let ((new-env (cons exp env)))
239 (simp! (cddr exp) (cons exp env)))
254 (cons (add-binding new-proc frame (car exp))
282 (let ((new-env (cons exp env)))
394 (cons '+ (lambda (args)
397 (cons '* (lambda (args)
400 (cons '- (lambda (args)
406 (cons '/ (lambda (args)
[all …]
/dports/lang/ypsilon/ypsilon-0.9.6-update3/bench/gambit-benchmarks/
H A Dpeval.scm39 (cons (car exp) (map alpha (cdr exp))))
145 (cons (car exp) (map bs (cdr exp))))
198 (let ((new-env (cons exp env)))
239 (simp! (cddr exp) (cons exp env)))
254 (cons (add-binding new-proc frame (car exp))
282 (let ((new-env (cons exp env)))
394 (cons '+ (lambda (args)
397 (cons '* (lambda (args)
400 (cons '- (lambda (args)
406 (cons '/ (lambda (args)
[all …]
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/bench/gambit-benchmarks/
H A Dpeval.scm39 (cons (car exp) (map alpha (cdr exp))))
145 (cons (car exp) (map bs (cdr exp))))
198 (let ((new-env (cons exp env)))
239 (simp! (cddr exp) (cons exp env)))
254 (cons (add-binding new-proc frame (car exp))
282 (let ((new-env (cons exp env)))
394 (cons '+ (lambda (args)
397 (cons '* (lambda (args)
400 (cons '- (lambda (args)
406 (cons '/ (lambda (args)
[all …]
/dports/audio/faust/faust-2.37.3/compiler/parser/
H A Dfaustparser.y81 CTree* exp; member
272 %type <exp> name
281 %type <exp> type
283 %type <exp> fun
310 %type <exp> doc
701 signature : type fun LPAR typelist RPAR { $$ = cons($1, cons(cons($2,cons($2,cons($2…
702 …| type fun OR fun LPAR typelist RPAR { $$ = cons($1, cons(cons($2,cons($4,cons($4,gGlobal->…
703 …| type fun OR fun OR fun LPAR typelist RPAR { $$ = cons($1, cons(cons($2,cons($4,cons($6,gGlobal->…
705 …| type fun LPAR RPAR { $$ = cons($1, cons(cons($2,cons($2,cons($2,gGlobal->…
706 …| type fun OR fun LPAR RPAR { $$ = cons($1, cons(cons($2,cons($4,cons($4,gGlobal->…
[all …]
H A Dfaustparser.cpp2399 …{ (yyval.exp) = cons((yyvsp[(1) - (7)].exp),cons((yyvsp[(3) - (7)].exp),(yyvsp[(6) - (7)].exp))); …
2404 …{ (yyval.exp) = cons((yyvsp[(1) - (4)].exp),cons(gGlobal->nil,(yyvsp[(3) - (4)].exp))); setDefPro…
2414 …{ (yyval.exp) = cons((yyvsp[(1) - (4)].exp),cons(gGlobal->nil,(yyvsp[(3) - (4)].exp))); setDefProp…
2439 { (yyval.exp) = cons((yyvsp[(3) - (3)].exp),(yyvsp[(1) - (3)].exp)); ;}
3064 { (yyval.exp) = cons((yyvsp[(3) - (3)].exp),(yyvsp[(1) - (3)].exp)); ;}
3214 …exp) = cons((yyvsp[(1) - (5)].exp), cons(cons((yyvsp[(2) - (5)].exp),cons((yyvsp[(2) - (5)].exp),c…
3219 …exp) = cons((yyvsp[(1) - (7)].exp), cons(cons((yyvsp[(2) - (7)].exp),cons((yyvsp[(4) - (7)].exp),c…
3224 …exp) = cons((yyvsp[(1) - (9)].exp), cons(cons((yyvsp[(2) - (9)].exp),cons((yyvsp[(4) - (9)].exp),c…
3229 …{ (yyval.exp) = cons((yyvsp[(1) - (4)].exp), cons(cons((yyvsp[(2) - (4)].exp),cons((yyvsp[(2) - (4…
3234 …{ (yyval.exp) = cons((yyvsp[(1) - (6)].exp), cons(cons((yyvsp[(2) - (6)].exp),cons((yyvsp[(4) - (6…
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/examples/
H A Dinterpret.ss38 (cons 'cons cons)
79 (lambda (exp env)
81 ((symbol? exp) (lookup exp env))
82 ((pair? exp)
83 (case (car exp)
84 ((quote) (cadr exp))
95 (if (exec (cadr exp) env)
96 (exec (caddr exp) env)
99 (assign (cadr exp)
106 (else exp))))
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/examples/
H A Dinterpret.ss38 (cons 'cons cons)
79 (lambda (exp env)
81 ((symbol? exp) (lookup exp env))
82 ((pair? exp)
83 (case (car exp)
84 ((quote) (cadr exp))
95 (if (exec (cadr exp) env)
96 (exec (caddr exp) env)
99 (assign (cadr exp)
106 (else exp))))
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/examples/
H A Dinterpret.ss38 (cons 'cons cons)
79 (lambda (exp env)
81 ((symbol? exp) (lookup exp env))
82 ((pair? exp)
83 (case (car exp)
84 ((quote) (cadr exp))
95 (if (exec (cadr exp) env)
96 (exec (caddr exp) env)
99 (assign (cadr exp)
106 (else exp))))
[all …]
/dports/lang/scheme48/scheme48-1.9.2/scheme/posix/
H A Dfunc-regexp.scm354 (loop (cdr exps) (cons exp res))))))))
386 (loop (cdr exps) (cons exp res) set)))))))
560 (values (cons "(" strings) (cons #f parens)))
577 (cons (set->posix-string exp) tail))
603 (cons #f (exp->strings exp (cons ")" tail))))
612 (exp->strings exp (cons "|" res)))))
776 (cons (cons (car range) (cdar done))
793 (cons (cons i (- j 1))
821 (cons first (cons last res)))
887 (cons (cons (car flag)
[all …]
/dports/lang/scheme48/scheme48-1.9.2/scheme/bcomp/
H A Dsyntax.scm131 (cons op (cdr form)))))
132 (cons op (cdr form))))
133 (cons op (cdr form)))))
233 (cons (cons node
306 (cons proc-node (expand-list (cdr exp) env)))
360 (cons op-node
401 (cons op
407 (cons op (expand-list (cdr exp) env))))
471 (bind (cons names out-names) (cons last nodes) env))))
474 (loop (cdr names) (cons node nodes) (cons (car names) out-names)))))))
[all …]
/dports/math/fricas/fricas-1.3.7/src/input/
H A Dexpps.input17 -- exp(x)*exp(2x) = exp(3x)
25 -- d/dx exp(2x) = 2*exp(2x)
33 -- \int 2*exp(2x) = exp(2x)
41 -- exp x
47 -- log exp x^2
48 serx2:= cons(0,cons(1,repeating [0]))
49 serlog1expx2:= log1(rest exp0(cons(0,cons(1,repeating [0])))$STEXSINT)$STEXSINT
56 -- exp(1)
57 serx3:= exp(cons(1,repeating [0]))$STEXSTEXPR
76 e1:= exp (cons(0, aa ))$EET
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/benchmarks/gabriel/
H A Dpeval.sch39 (cons (car exp) (map alpha (cdr exp))))
145 (cons (car exp) (map bs (cdr exp))))
198 (let ((new-env (cons exp env)))
239 (simp! (cddr exp) (cons exp env)))
254 (cons (add-binding new-proc frame (car exp))
282 (let ((new-env (cons exp env)))
394 (cons '+ (lambda (args)
397 (cons '* (lambda (args)
400 (cons '- (lambda (args)
406 (cons '/ (lambda (args)
[all …]
/dports/lang/guile1/guile-1.8.8/lang/elisp/primitives/
H A Dsyntax.scm16 (cons begin
20 (cons `(,set (,quote ,(car sets)) ,(transformer (cadr sets)))
156 (cons nil-cond
160 (cons (list not (transformer (car args)))
161 (cons %nil
183 (cons nil-cond
187 (cons (transformer (car args))
188 (cons <--
196 (cons
207 (cons (transformer (car clause))
[all …]
/dports/lang/slib/slib-3b6/
H A Dmwexpand.scm56 (cons mw:begin1 (reverse (cons exp first))))
59 (cons exp first))))))
68 (cons mw:begin1 (reverse (cons (mw:expand exp env) first))))
69 (else (cons mw:begin1
72 (cons exp rest))))))))
115 (else (cons mw:begin1
117 (cons exp rest)))))))
222 (loop (cdr body) env (cons exp defs)))
228 (loop (cons exp (cdr body))
243 (cons mw:begin1 body)))
[all …]
/dports/lang/owl-lisp/owl-079f58f45039805517b9b880feec050e151c52b3/owl/
H A Dmacro.scm44 (cons exp found))
69 (if (pattern exp) (cons exp vals) #false))
82 (λ (dict key) (cons (cons key #n) dict))
92 (cons
96 (cons (car dict)
170 (cons (car form) literals)
213 (cons
216 (cons
233 (values (gensym free) (cons (list name free) dict)))
266 (cons
[all …]
/dports/lang/guile2/guile-2.2.7/gc-benchmarks/larceny/
H A Ddynamic-input-small.sch243 …exp|1) (let ((.make-toplevel-definition|2 0)) (begin (set! .make-toplevel-definition|2 (lambda (.i…
331 …exp|1 .env|1) (let ((.m-atom|2 0)) (begin (set! .m-atom|2 (lambda (.exp|3 .env|3) (if (not (symbol…
348 …exp|1 .env|1) (let ((.m-macro|2 0)) (begin (set! .m-macro|2 (lambda (.exp|3 .env|3) (m-transcribe …
349 …exp|1 .env|1) (let ((.m-inline|2 0)) (begin (set! .m-inline|2 (lambda (.exp|3 .env|3) (if (integra…
797 …cons (.cons 'integer->char (.cons (.cons .charcode?|3 '()) (.cons integer->char '()))) (.cons (.co…
799 …cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car …
876 …cons (.cons 'break (.cons 0 (.cons 'break (.cons #f (.cons 3 (.cons .:dead|3 (.cons .:all|3 '())))…
967 … pass2 (lambda (.exp|1) (let ((.pass2|2 0)) (begin (set! .pass2|2 (lambda (.exp|3) (simplify .exp|…
968 …exp|1 .notepad|1) (let ((.simplify|2 0)) (begin (set! .simplify|2 (lambda (.exp|3 .notepad|3) (let…
1033 …exp|1) (let ((.pass3|2 0)) (begin (set! .pass3|2 (lambda (.exp|3) (let ((.verify|4 (unspecified)) …
[all …]
/dports/lang/guile/guile-3.0.7/gc-benchmarks/larceny/
H A Ddynamic-input-small.sch243 …exp|1) (let ((.make-toplevel-definition|2 0)) (begin (set! .make-toplevel-definition|2 (lambda (.i…
331 …exp|1 .env|1) (let ((.m-atom|2 0)) (begin (set! .m-atom|2 (lambda (.exp|3 .env|3) (if (not (symbol…
348 …exp|1 .env|1) (let ((.m-macro|2 0)) (begin (set! .m-macro|2 (lambda (.exp|3 .env|3) (m-transcribe …
349 …exp|1 .env|1) (let ((.m-inline|2 0)) (begin (set! .m-inline|2 (lambda (.exp|3 .env|3) (if (integra…
797 …cons (.cons 'integer->char (.cons (.cons .charcode?|3 '()) (.cons integer->char '()))) (.cons (.co…
799 …cons (.cons 'define-inline (.cons 'car (.cons (.cons 'syntax-rules (.cons '() (.cons (.cons '(car …
876 …cons (.cons 'break (.cons 0 (.cons 'break (.cons #f (.cons 3 (.cons .:dead|3 (.cons .:all|3 '())))…
967 … pass2 (lambda (.exp|1) (let ((.pass2|2 0)) (begin (set! .pass2|2 (lambda (.exp|3) (simplify .exp|…
968 …exp|1 .notepad|1) (let ((.simplify|2 0)) (begin (set! .simplify|2 (lambda (.exp|3 .notepad|3) (let…
1033 …exp|1) (let ((.pass3|2 0)) (begin (set! .pass3|2 (lambda (.exp|3) (let ((.verify|4 (unspecified)) …
[all …]
/dports/lang/owl-lisp/owl-079f58f45039805517b9b880feec050e151c52b3/owl/eval/
H A Denv.scm91 (cons (quote name)
172 … (fail (list "funny rlambda: " (list exp 'len (length exp) 'forms (formals-cool? exp))))))
174 (cons (car exp)
268 (cons 'lambda (tuple 'special 'lambda))
269 (cons 'quote (tuple 'special 'quote))
270 (cons 'rlambda (tuple 'special 'rlambda)) ;; letrec etc, removed in compilation
271 …(cons 'receive (tuple 'special 'receive)) ;; generate continuation to receive multiple values duri…
272 (cons '_branch (tuple 'special '_branch)) ;; if
273 (cons '_define (tuple 'special '_define)) ;; handled by repl
274 …(cons 'values (tuple 'special 'values)) ;; ends up as as regular call to continuation during com…
[all …]
/dports/math/maxima/maxima-5.43.2/src/
H A Dcomm.lisp211 (t (cons (cons (caar z) nil) (cons x (cdr tail)))))))
330 (cons (cons x nil) (if ($listp y) (cdr y) (cons y nil))))
426 noun (return (diff%deriv (cons exp (cdr e))))))
825 (cons (cons (caar e) (cons 'simp (cdar e)))
881 ((specrepp exp) (setq exp (specdisrep exp))))
909 (rplaca (rplacd exp (cons (car exp)
916 (rplaca exp (cons substitem
948 ((specrepp exp) (setq exp (specdisrep exp))))
958 (setq exp1 (cons (caar exp) (if (member 'array (cdar exp) :test #'eq) '(array))))
989 (setq sevlist (cons (car exp) sevlist))
[all …]
H A Drpart.lisp618 (defun 2pistrip (exp)
619 (cond ((atom exp) exp)
620 ((eq (caar exp) 'mtimes)
623 (null (cdddr exp)))
633 (- (mod (+ (cadadr exp) (car (cddadr exp)))
636 (cddadr exp))
638 (t exp)))
639 (t exp)))
640 ((eq (caar exp) 'mplus)
643 exp
[all …]
/dports/lang/guile2/guile-2.2.7/module/texinfo/
H A Dserialize.scm38 (let loop ((l (cdr src-l)) (dest (cons (car src-l) '())))
40 (loop (cdr l) (cons (car l) (cons elem dest)))))))
48 (lp (cdr in) (if (pred (car in)) (cons (car in) out) out)))
50 (lp '() (if (pred in) (cons in out) out))))))
60 (else (lp (cdr in) (cons (car in) out)))))))
140 (cons (serialize-arg formal rest?)
155 (reverse (if args (cddr exp) (cdr exp))))
177 (cons "\n" (reverse (cons "@setfilename " filename)))))
190 (cons "\n" body)))
266 (loop (cdr in) (cons (car in) out))))))
[all …]
/dports/lang/guile/guile-3.0.7/module/texinfo/
H A Dserialize.scm38 (let loop ((l (cdr src-l)) (dest (cons (car src-l) '())))
40 (loop (cdr l) (cons (car l) (cons elem dest)))))))
48 (lp (cdr in) (if (pred (car in)) (cons (car in) out) out)))
50 (lp '() (if (pred in) (cons in out) out))))))
60 (else (lp (cdr in) (cons (car in) out)))))))
140 (cons (serialize-arg formal rest?)
155 (reverse (if args (cddr exp) (cdr exp))))
177 (cons "\n" (reverse (cons "@setfilename " filename)))))
190 (cons "\n" body)))
266 (loop (cdr in) (cons (car in) out))))))
[all …]
/dports/lang/guile/guile-3.0.7/test-suite/test-suite/
H A Dlib.scm287 (cons 'system-error ".*"))
291 (cons 'misc-error "^.*"))
293 (cons 'read-error "^.*$"))
465 ((_ (pass-if exp))
466 (c&e (pass-if "[unnamed test]" exp)))
467 ((_ (pass-if test-name exp))
469 (primitive-eval 'exp))
478 (primitive-eval 'exp))
487 (primitive-eval 'exp))
500 ((_ section-name exp ...)
[all …]
/dports/lang/guile2/guile-2.2.7/test-suite/test-suite/
H A Dlib.scm298 (cons 'vm-error "^.*$"))
468 ((_ (pass-if exp))
469 (c&e (pass-if "[unnamed test]" exp)))
470 ((_ (pass-if test-name exp))
472 (primitive-eval 'exp))
475 ((_ (pass-if-equal test-name val exp))
477 (primitive-eval 'exp))
480 ((_ (pass-if-exception test-name exc exp))
492 ((_ section-name exp ...)
493 (with-test-prefix section-name (c&e exp) ...))))
[all …]

12345678910>>...156