add syntax/main.rkt and use abs paths more
This commit is contained in:
parent
f216a3c18d
commit
b7555f541b
|
@ -5,7 +5,10 @@ provide lazy-lens
|
|||
|
||||
require fancy-app lens/private/base/main racket/promise
|
||||
module+ test
|
||||
require rackunit "if.rkt" "isomorphism.rkt" "map.rkt"
|
||||
require rackunit
|
||||
lens/private/compound/if
|
||||
lens/private/isomorphism/data
|
||||
lens/private/list/map
|
||||
|
||||
(define-syntax-rule (lazy-lens expr)
|
||||
(let ([p (delay expr)])
|
||||
|
|
|
@ -1,3 +1,2 @@
|
|||
#lang reprovide
|
||||
"syntax/syntax.rkt"
|
||||
"syntax/syntax-keyword.rkt"
|
||||
"syntax/main.rkt"
|
||||
|
|
3
unstable/lens/syntax/main.rkt
Normal file
3
unstable/lens/syntax/main.rkt
Normal file
|
@ -0,0 +1,3 @@
|
|||
#lang reprovide
|
||||
"syntax.rkt"
|
||||
"syntax-keyword.rkt"
|
|
@ -17,7 +17,7 @@ module+ test
|
|||
require lens/private/list/main
|
||||
rackunit
|
||||
lens/private/isomorphism/data
|
||||
"map.rkt"
|
||||
lens/private/list/map
|
||||
|
||||
;; lens-zoom : (Lens (Outer Inner) Inner) (Lens A B) -> (Lens (Outer A) (Outer B))
|
||||
(define (lens-zoom zoom-lens transformer-lens)
|
||||
|
|
Loading…
Reference in New Issue
Block a user