Searched +refs:mcons +refs:exp +refs:args (Results 1 – 15 of 15) sorted by relevance
13 [mcons cons]22 abs gcd lcm exp log sin cos tan not eq?89 [(_ . args) (proc-id . args)]143 [(pair? v) (mcons (loop (car v)) (loop (cdr v)))]164 [(pair? v) (mcons (to-mutable (car v))205 #`(mcons 'unquote219 #`(mcons (mcons 'unquote-splicing272 [(_ (id . args) . body)275 (r5rs:lambda args . body))])306 ((delay exp)[all …]
94 (dolist (c args)98 (setq $activecontexts (mcons c $activecontexts))106 (dolist (c args)175 (if (null args)177 (if (> (length args) 1)185 (setq $contexts (mcons x $contexts))203 (t (setq $contexts (mcons (car x) $contexts))210 (dolist (c args)214 (if (and (= (length args) 1) (eq (car args) '$global))1760 (l args (cdr l)))[all …]
175 args)]179 (define (lift-strict . args)180 (apply lift #t args))260 (define (merge-e . args)267 args))662 [(fn . args) (lambda ()676 [(fn . args) (lambda () (apply fn (map value-now/no-copy args)))]))802 (mcons (first lst) (make-mutable (rest lst)))911 [(tag exp ...)912 (with-syntax ([(new-exp ...) (map (lambda (exp)[all …]
13 (provide s-exp->fasl14 fasl->s-exp)121 (define (s-exp->fasl v129 (raise-argument-error 's-exp->fasl "(or/c output-port? #f)" orig-o)))378 (raise-arguments-error 's-exp->fasl398 (define (fasl->s-exp orig-i403 [(bytes? orig-i) (mcons orig-i 0)]414 (error 'fasl->s-exp "external-lift vector does not match expected size"))424 (mcons bstr 0))))589 (define (read-error s . args)[all …]
33 #lang s-exp swindle/base127 (set! fmt (car args)) (set! args (cdr args))))]131 (let loop ([fmt-args '()] [args args] [a fmt-num])138 (loop (cons (car args) fmt-args) (cdr args) (sub1 a))))))356 (mcons (lambda (o) (%instance-ref o f))632 (cons s (mcons (lambda (o) (%instance-ref o f))1052 (compute-methods generic args) . args)))1058 (let loop ([args args] [tables tables] [ks '()])1129 [args args])1589 [g+s (mcons (lambda (o) (%instance-ref o f))[all …]
57 (define (oprintf . args) (apply fprintf o args))927 (hash-set! ht expr #;(box #f) (mcons #f #f)))))948 (lambda (exp)949 (let* ([is-compiled? (compiled-expression? (if (syntax? exp) (syntax-e exp) exp))]952 exp953 (let* ([et-annotated (et:annotate-top (expand exp)
57 (define (oprintf . args) (apply fprintf o args))971 (lambda (exp basic-convert sub-convert)973 [(is-a? exp snip%)974 (send exp copy)]975 [else (basic-convert exp)])))1148 (hash-set! ht expr #;(box #f) (mcons #f #f)))))1169 (lambda (exp)1170 (let* ([is-compiled? (compiled-expression? (if (syntax? exp) (syntax-e exp) exp))]1173 exp1174 (let* ([et-annotated (et:annotate-top (expand exp)
51 (define (oprintf . args) (apply fprintf o args))932 (hash-set! ht expr #;(box #f) (mcons #f #f)))))953 (lambda (exp)954 (let* ([is-compiled? (compiled-expression? (if (syntax? exp) (syntax-e exp) exp))]957 exp958 (let* ([et-annotated (et:annotate-top (expand exp)
36 (define (oprintf . args) (apply fprintf orig args))91 (init-rest args)157 (apply super-make-object args)270 ; [exp279 (λ (orig-exp)283 (oe orig-exp)284 (let loop ([exp (if (syntax? orig-exp)285 orig-exp305 (λ args309 args))))[all …]
2233 "(check-args)"2346 "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'map f_0 ls_0))"2363 "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'for-each f_0 ls_0))"2380 "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'andmap f_0 ls_0))"2399 "(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'ormap f_0 ls_0))"19215 "(let-values()(mcons orig-i_0 0))"19291 "(mcons bstr_0 0)))))"34647 "(list 'args(list* 'let-values(list(list* gen-syms_0 '((apply values args)))) '((void)))))))))))"46097 "((exp-s214_0) exp-s_0)"51721 "((exp-s115_0) exp-s_0)"[all …]
270 (lambda (test format . args)274 `(parser-generation ,format . ,args))))))1206 ;; (Variant-name (Field-name Predicate-exp) ...) ...)2056 (mcons '() (consloop (- n 1)))))))2069 (lambda (lhs opcode args)2070 (apply opcode args)))
48 args : list?467 | (head args)469 args = arg ...684 args = arg ...953 (exp z) -> number?958 b : number? = (exp 1)3433 (mcons a d) -> mpair?5038 = (lambda args (apply proc null null args))11132 (s-exp->fasl v 11146 (fasl->s-exp in [all …]
1 #lang s-exp "env-lang.rkt"850 [mcons (-poly (a b) (-> a b (-mpair a b)))]3212 ;; Still permits unknown-proc args that accept rest arguments