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

Fix unstable module references

Browse Source
This commit is contained in:
Jack Firth 2015-08-18 15:36:06 -07:00
parent 614d6876c7
commit baebbe1da7
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
unstable/lens/arrow.rkt
View File

@ -5,10 +5,10 @@
lens-transform~> lens-transform~>
lens-view/thrush lens-view/thrush
lens-set/thrush lens-set/thrush
lens-transform/thrush lens-transform/thrush)
)
(require lens)
(require lens/base/main)
(module+ test (module+ test
(require rackunit racket/list fancy-app)) (require rackunit racket/list fancy-app))
@ -38,5 +38,4 @@
(check-equal? (lens-set~> '((1 2) 3) first-lens second-lens #:-> 'two) (check-equal? (lens-set~> '((1 2) 3) first-lens second-lens #:-> 'two)
'((1 two) 3)) '((1 two) 3))
(check-equal? (lens-transform~> '((1 2) 3) first-lens second-lens #:-> (* 100 _)) (check-equal? (lens-transform~> '((1 2) 3) first-lens second-lens #:-> (* 100 _))
'((1 200) 3)) '((1 200) 3)))
)

2
unstable/lens/main.rkt
View File

@ -1,4 +1,4 @@
#lang racket #lang racket/base
(require "syntax.rkt" (require "syntax.rkt"
"view-set.rkt" "view-set.rkt"

6
unstable/lens/sublist.rkt
View File

@ -2,9 +2,9 @@
(provide sublist-lens) (provide sublist-lens)
(require lens/base/main (require lens
lens/list/main lens/list/list-ref-take-drop)
)
(module+ test (module+ test
(require rackunit)) (require rackunit))