steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern.paths: normalize-paths before rejecting.

locals-and-roots
Doug Coleman 2016-06-27 20:28:22 -07:00
parent 12ea950408
commit c1c08dda52
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/modern/paths/paths.factor
View File

@ -1,8 +1,9 @@
! Copyright (C) 2015 Doug Coleman. ! Copyright (C) 2015 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators.smart io.directories.search USING: accessors combinators.smart io.backend
io.files kernel namespaces sequences sets splitting vocabs.files io.directories.search io.files kernel namespaces sequences sets
vocabs.hierarchy vocabs.loader vocabs.metadata ; splitting vocabs.files vocabs.hierarchy vocabs.loader
vocabs.metadata ;
IN: modern.paths IN: modern.paths
: vocabs-from ( root -- vocabs ) : vocabs-from ( root -- vocabs )
@ -55,7 +56,7 @@ IN: modern.paths
"resource:core/vocabs/loader/test/n/n.factor" "resource:core/vocabs/loader/test/n/n.factor"
"resource:core/vocabs/loader/test/o/o.factor" "resource:core/vocabs/loader/test/o/o.factor"
"resource:core/vocabs/loader/test/p/p.factor" "resource:core/vocabs/loader/test/p/p.factor"
} diff } [ normalize-path ] map diff
! Don't parse .modern files yet ! Don't parse .modern files yet
[ ".modern" tail? ] reject ; [ ".modern" tail? ] reject ;