doc.txt:> (require (lifted module-spec proc-name ...) ...) SYNTAX doc.txt:> (require (lifted:nonstrict module-spec proc-name ...) ...) SYNTAX doc.txt:> (require (as-is module-spec proc-name ...) ...) SYNTAX doc.txt:> (require (as-is:unchecked module-spec proc-name ...) ...) SYNTAX frp-core.ss: (apply proc->signal (lambda the-args (apply proc/emit the-args) out) deps))) frp-core.ss: (define (proc->signal:switching thunk current-box trigger . producers) frp-core.ss: (define (proc->signal thunk . producers) frp-core.ss: (define (proc->signal:unchanged thunk . producers) frp-core.ss: (cons (proc->signal frp-core.ss: (apply proc->signal thunk args)))) frp-core.ss: (proc->signal:unchanged frp-core.ss: [rtn (proc->signal:switching frp-core.ss: (define dummy (proc->signal void)) frp-core.ss~: (apply proc->signal (lambda the-args (apply proc/emit the-args) out) deps))) frp-core.ss~: (define (proc->signal thunk . producers) frp-core.ss~: (cons (proc->signal frp-core.ss~: (apply proc->signal thunk args)))) frp-core.ss~: (proc->signal frp-core.ss~: [rtn (proc->signal frp-core.ss~: (define dummy (proc->signal void)) frp-snip.ss:; (rename (lib "frp-core.ss" "frtime") proc->signal proc->signal) frp-snip.ss: [loc-bhvr (proc->signal (lambda () (update)) bhvr)] frp-snip.ss~:; (rename (lib "frp-core.ss" "frtime") proc->signal proc->signal) frp-snip.ss~: [loc-bhvr (proc->signal (lambda () (update)) bhvr)] frp.ss: (cons (proc->signal frp.ss: (define (proc->signal thunk . producers) frp.ss: (proc->signal frp.ss: [rtn (proc->signal frp.ss: proc->signal frp.ss: (proc->signal frp.ss: (set! proc-k k) frp.ss: [proc-k (lambda (evt) (proc emit suspend evt) (set! proc-k #f))]) frp.ss: (when proc-k frp.ss: (proc-k the-event)))) (loop)) frp.ss: (apply proc->signal thunk args))))) frp.ss: (apply proc->signal thunk args))) frp.ss: (apply proc->signal (lambda the-args (apply proc/emit the-args) out) deps))) frp.ss: (proc->signal (lambda the-args expr out) dep ...))))])) frp.ss: (proc->signal frp.ss: [rtn (proc->signal (lambda () updator val) updator)]) frp.ss: (proc->signal void)) frp.ss: (letrec ([res (proc->signal frp.ss: (let ([ret (proc->signal void)]) frp.ss: (let ([ret (proc->signal void)]) frp.ss: (let ([ret (proc->signal void)]) frp.ss: [producer (proc->signal frp.ss: [consumer (proc->signal frp.ss: [producer (proc->signal (lambda () frp.ss: [consumer (proc->signal void b ms-b)]) frp.ss: (proc->signal thunk b))) gui.ss: (rename (lib "frp-core.ss" "frtime") proc->signal proc->signal) gui.ss: (proc->signal lang-ext.ss: (proc->signal (lambda the-args expr out) dep ...))))])) lang-ext.ss: (proc->signal:switching lang-ext.ss: [rtn (proc->signal (lambda () updator val) updator)]) lang-ext.ss: (let ([ret (proc->signal void)]) lang-ext.ss: (let ([ret (proc->signal void)]) lang-ext.ss: [producer (proc->signal lang-ext.ss: [consumer (proc->signal lang-ext.ss: [producer (proc->signal (lambda () lang-ext.ss: [consumer (proc->signal void b ms-b)]) lang-ext.ss: (proc->signal thunk b))) lang-ext.ss: proc->signal lang-ext.ss: (set! proc-k k) lang-ext.ss: [proc-k (lambda (evt) (proc emit suspend evt) (set! proc-k #f))]) lang-ext.ss: (when proc-k lang-ext.ss: (proc-k the-event)))) (loop)) lang-ext.ss: (apply proc->signal thunk args))))) lang-ext.ss: (apply proc->signal thunk args))) lang-ext.ss~: (proc->signal (lambda the-args expr out) dep ...))))])) lang-ext.ss~: (proc->signal lang-ext.ss~: [rtn (proc->signal (lambda () updator val) updator)]) lang-ext.ss~: (let ([ret (proc->signal void)]) lang-ext.ss~: (let ([ret (proc->signal void)]) lang-ext.ss~: [producer (proc->signal lang-ext.ss~: [consumer (proc->signal lang-ext.ss~: [producer (proc->signal (lambda () lang-ext.ss~: [consumer (proc->signal void b ms-b)]) lang-ext.ss~: (proc->signal thunk b))) lang-ext.ss~: proc->signal lang-ext.ss~: (set! proc-k k) lang-ext.ss~: [proc-k (lambda (evt) (proc emit suspend evt) (set! proc-k #f))]) lang-ext.ss~: (when proc-k lang-ext.ss~: (proc-k the-event)))) (loop)) lang-ext.ss~: (apply proc->signal thunk args))))) lang-ext.ss~: (apply proc->signal thunk args)))