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

use rest-> contract for lens-join/list

Browse Source
This commit is contained in:
AlexKnauth 2015-08-30 19:42:12 -04:00
parent 730363fbfd
commit 1bcf4fb74e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lens/private/compound/join-list.rkt
View File

@ -4,6 +4,7 @@ require racket/list
racket/contract racket/contract
"../base/main.rkt" "../base/main.rkt"
"../util/alternating-list.rkt" "../util/alternating-list.rkt"
"../util/rest-contract.rkt"
module+ test module+ test
require rackunit require rackunit
@ -11,7 +12,7 @@ module+ test
provide provide
contract-out contract-out
lens-join/list (->* () #:rest (listof lens?) (lens/c any/c list?)) lens-join/list (rest-> lens? (lens/c any/c list?))
(define (lens-join/list . lenses) (define (lens-join/list . lenses)