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

use #lang reprovide

Browse Source
This commit is contained in:
AlexKnauth 2015-08-27 13:38:09 -04:00
parent 6977dcaf47
commit 25b9ed77e4
12 changed files with 67 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
info.rkt
View File

@ -15,6 +15,7 @@
"alexis-util" "alexis-util"
"sweet-exp" "sweet-exp"
"kw-make-struct" "kw-make-struct"
"reprovide-lang"
"scribble-lib")) "scribble-lib"))

9
lens/main.rkt
View File

@ -1,7 +1,2 @@
#lang sweet-exp racket/base #lang reprovide
"private/main.rkt"
require "private/main.rkt"
provide
all-from-out
"private/main.rkt"

16
lens/private/base/main.rkt
View File

@ -1,12 +1,4 @@
#lang sweet-exp racket/base #lang reprovide
"base.rkt"
require "view-set.rkt"
"base.rkt" "transform.rkt"
"view-set.rkt"
"transform.rkt"
provide
all-from-out
"base.rkt"
"view-set.rkt"
"transform.rkt"

28
lens/private/compound/main.rkt
View File

@ -1,20 +1,8 @@
#lang sweet-exp racket/base #lang reprovide
"compose.rkt"
require "identity.rkt"
"compose.rkt" "join-hash.rkt"
"identity.rkt" "join-list.rkt"
"join-hash.rkt" "join-string.rkt"
"join-list.rkt" "join-vector.rkt"
"join-string.rkt" "thrush.rkt"
"join-vector.rkt"
"thrush.rkt"
provide
all-from-out
"compose.rkt"
"identity.rkt"
"join-hash.rkt"
"join-list.rkt"
"join-string.rkt"
"join-vector.rkt"
"thrush.rkt"

16
lens/private/hash/main.rkt
View File

@ -1,12 +1,4 @@
#lang racket/base #lang reprovide
"nested.rkt"
"pick.rkt"
(require "nested.rkt" "ref.rkt"
"pick.rkt"
"ref.rkt")
(provide
(all-from-out "nested.rkt"
"pick.rkt"
"ref.rkt"))

20
lens/private/list/main.rkt
View File

@ -1,14 +1,6 @@
#lang racket/base #lang reprovide
"car-cdr.rkt"
(require "car-cdr.rkt" "list-ref-take-drop.rkt"
"list-ref-take-drop.rkt" "cadr-etc.rkt"
"cadr-etc.rkt" "multi.rkt"
"multi.rkt" "assoc.rkt"
"assoc.rkt")
(provide (all-from-out
"car-cdr.rkt"
"list-ref-take-drop.rkt"
"cadr-etc.rkt"
"multi.rkt"
"assoc.rkt"))

47
lens/private/main.rkt
View File

@ -1,30 +1,17 @@
#lang sweet-exp racket/base #lang sweet-exp reprovide
except-in
require combine-in
"base/main.rkt" "base/main.rkt"
"compound/main.rkt" "compound/main.rkt"
"dict.rkt" "dict.rkt"
"hash/main.rkt" "hash/main.rkt"
"list/main.rkt" "list/main.rkt"
"stream.rkt" "stream.rkt"
"string.rkt" "string.rkt"
"struct/main.rkt" "struct/main.rkt"
"vector/main.rkt" "vector/main.rkt"
gen:lens
provide focus-lens
except-out drop-lens
all-from-out take-lens
"base/main.rkt" use-applicable-lenses!
"compound/main.rkt"
"dict.rkt"
"hash/main.rkt"
"list/main.rkt"
"stream.rkt"
"string.rkt"
"struct/main.rkt"
"vector/main.rkt"
gen:lens
focus-lens
drop-lens
take-lens
use-applicable-lenses!

11
lens/private/struct/main.rkt
View File

@ -1,8 +1,3 @@
#lang racket/base #lang reprovide
"field.rkt"
(require "field.rkt" "struct.rkt"
"struct.rkt")
(provide
(all-from-out "field.rkt"
"struct.rkt"))

16
lens/private/vector/main.rkt
View File

@ -1,12 +1,4 @@
#lang racket/base #lang reprovide
"nested.rkt"
"pick.rkt"
(require "nested.rkt" "ref.rkt"
"pick.rkt"
"ref.rkt")
(provide
(all-from-out "nested.rkt"
"pick.rkt"
"ref.rkt"))

7
unstable/lens.rkt
View File

@ -1,5 +1,2 @@
#lang racket/base #lang reprovide
"lens/main.rkt"
(require "lens/main.rkt")
(provide (all-from-out "lens/main.rkt"))

13
unstable/lens/isomorphism.rkt
View File

@ -1,10 +1,3 @@
#lang sweet-exp racket/base #lang reprovide
"isomorphism/base.rkt"
require "isomorphism/data.rkt"
"isomorphism/base.rkt"
"isomorphism/data.rkt"
provide
all-from-out
"isomorphism/base.rkt"
"isomorphism/data.rkt"

29
unstable/lens/main.rkt
View File

@ -1,16 +1,13 @@
#lang sweet-exp racket/base #lang reprovide
require lens/private/util/reprovide "arrow.rkt"
reprovide "if.rkt"
"arrow.rkt" "isomorphism.rkt"
"if.rkt" "mapper.rkt"
"isomorphism.rkt" "match.rkt"
"mapper.rkt" "set-filterer.rkt"
"match.rkt" "string-split.rkt"
"set-filterer.rkt" "struct-join.rkt"
"string-split.rkt" "struct-nested.rkt"
"struct-join.rkt" "sublist.rkt"
"struct-nested.rkt" "syntax.rkt"
"sublist.rkt" "view-set.rkt"
"syntax.rkt"
"view-set.rkt"