suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reorder provides in lang-core.rkt

Browse Source
This commit is contained in:
Patrick Mahoney 2012-08-03 16:53:53 -04:00 committed by Gregory Cooper
parent fa740ebfcf
commit 182cf25bfa
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/frtime/lang-core.rkt
View File

@ -22,7 +22,7 @@
(or (pred? (vector-ref vec i))
(loop1 pred? vec (add1 i) len))))))
(lambda (pred? vec)
(loop1 pred? vec 0 (vector-length vec)))))
(loop1 pred? vec 0 (vector-length vec)))))
;;;;;;;;;;;;;;;;;;;;;;;;
;; Fundamental Macros ;;
@ -88,8 +88,8 @@
(let ([the-rest-arg (get-rest-arg #'bindings)])
(if the-rest-arg
#`(bindings
(let ([#,the-rest-arg (frp:copy-list #,the-rest-arg)])
body0 body1 ...))
(let ([#,the-rest-arg (frp:copy-list #,the-rest-arg)])
body0 body1 ...))
#'(bindings body0 body1 ...)))]))
(define-syntax (frp:lambda stx)
@ -301,7 +301,7 @@
(lambda (_)
(loop (unbox (signal:switching-current v))))
(signal:switching-trigger v))]
[(undefined? v) undefined]
[(undefined? v) undefined]
[else (acc v)]))))
(define frp:car
@ -427,14 +427,14 @@
[(_ s (field ...))
#'(frp:define-struct (s #f) (field ...) (current-inspector))]))
(define (find pred lst)
(define (find pred lst)
(cond
[(empty? lst) #f]
[(pred (first lst)) (first lst)]
[else (find pred (rest lst))]))
(define (ensure-no-signal-args val name)
(define (ensure-no-signal-args val name)
(if (procedure? val)
(lambda args
(cond
@ -442,7 +442,7 @@
=>
(lambda (v)
(raise-type-error name "non-signal"
(format "#<signal: ~a>" (signal-value v))))]
(format "#<signal: ~a>" (signal-value v))))]
[else (apply val args)]))))
@ -545,12 +545,17 @@
#%plain-module-begin
#%module-begin
#%top-interaction
raise-reactivity
raise-list-for-apply
(rename public-dvn deep-value-now)
any-nested-reactivity?
compound-lift
list-match
frp:copy-list
frp:->boolean
(rename public-dvn deep-value-now)
(rename frp:if if)
(rename frp:lambda lambda)
(rename frp:case-lambda case-lambda)
@ -571,6 +576,4 @@
(rename frp:make-struct-field-mutator make-struct-field-mutator)
(rename frp:define-struct define-struct)
(rename frp:provide provide)
(rename frp:require require)
frp:copy-list
frp:->boolean))
(rename frp:require require)))