Lines Matching refs:frp
22 frp:copy-list
23 frp:->boolean
26 (rename-out [frp:if if])
27 (rename-out [frp:lambda lambda])
28 (rename-out [frp:case-lambda case-lambda])
29 (rename-out [frp:letrec letrec])
30 (rename-out [frp:cons cons])
31 (rename-out [frp:car car])
32 (rename-out [frp:cdr cdr])
33 (rename-out [frp:list list])
34 (rename-out [frp:list? list?])
35 (rename-out [frp:list* list*])
36 (rename-out [frp:null? null?])
37 (rename-out [frp:pair? pair?])
38 (rename-out [frp:append append])
39 (rename-out [frp:vector vector])
40 (rename-out [frp:vector-ref vector-ref])
41 (rename-out [frp:make-struct-type make-struct-type])
42 (rename-out [frp:make-struct-field-accessor make-struct-field-accessor])
43 (rename-out [frp:make-struct-field-mutator make-struct-field-mutator])
44 (rename-out [frp:define-struct define-struct])
45 (rename-out [frp:provide provide])
46 (rename-out [frp:require require]))
54 …(only-in frtime/core/frp super-lift undefined undefined? behavior? do-in-manager-after do-in-manag…
77 (define-syntax frp:letrec
91 (define (frp:->boolean x)
94 (define-syntax frp:if
97 (frp:if test-exp then-exp (void))]
99 (frp:if test-exp then-exp else-exp undefined)]
107 (frp:->boolean test-exp))]))
109 (define (frp:copy-list lst)
110 (frp:if (null? lst)
112 (frp:cons (frp:car lst) (frp:copy-list (frp:cdr lst)))))
114 (define-syntax frp:let-values
136 (let ([#,the-rest-arg (frp:copy-list #,the-rest-arg)])
140 (define-syntax (frp:lambda stx)
146 (define-syntax (frp:case-lambda stx)
337 (define frp:cons cons)
352 (define frp:car
355 (define frp:cdr
358 (define frp:pair? (lambda (arg) (if (signal:compound? arg)
362 (define (frp:null? arg)
367 (define frp:empty? frp:null?)
379 (define frp:append
385 (lambda (f r) (cons f (apply frp:append r lst2 lsts)))
386 (lambda () (apply frp:append lst2 lsts)))]))
388 (define frp:list list)
390 (define frp:list*
392 (frp:if (frp:empty? elts)
394 (frp:if (frp:empty? (frp:cdr elts))
395 (frp:car elts)
396 (frp:cons (frp:car elts)
397 (apply frp:list* (frp:cdr elts)))))))
399 (define (frp:list? itm)
403 (frp:list? (cdr ctnt))
406 (frp:if (lift #t cons? itm)
407 (frp:list? (frp:cdr itm))
408 (frp:null? itm))
410 (and (cons? itm) (frp:list? (cdr itm)))))))
416 (define frp:vector vector)
418 (define (frp:vector-ref v i)
420 [(behavior? v) (super-lift (lambda (v) (frp:vector-ref v i)) v)]
428 (define (frp:make-struct-type name-symbol super-struct-type init-field-k auto-field-k . args)
441 (define (frp:make-struct-field-accessor acc i sym)
445 (define (frp:make-struct-field-mutator acc i sym)
449 (define-syntax (frp:define-struct stx)
469 #'(frp:define-struct (s t) (field ...) (current-inspector))]
471 #'(frp:define-struct (s #f) (field ...) insp)]
473 #'(frp:define-struct (s #f) (field ...) (current-inspector))]))
499 (define-syntax (frp:provide stx)
538 (define-syntax (frp:require stx)