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

extra: fix word/syntax

modern-harvey2
Doug Coleman 2017-12-29 00:50:16 -08:00
parent 9de4592de5
commit 63837139cd
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/modern/out/out.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators.short-circuit
constructors continuations fry io io.encodings.utf8 io.files
constructors continuations io io.encodings.utf8 io.files
io.streams.string kernel modern modern.paths modern.slices
multiline namespaces prettyprint sequences sequences.extras
splitting strings ;
prettyprint sequences sequences.extras splitting strings
vocabs.loader ;
IN: modern.out
: token? ( obj -- ? )
@ -53,7 +53,7 @@ DEFER: map-literals
utf8 [ write-literal nl ] with-file-writer ; inline
: write-modern-vocab ( seq vocab -- )
modern-source-path write-modern-path ; inline
vocab-source-path write-modern-path ; inline
: rewrite-path ( path quot: ( obj -- obj' ) -- )
! dup print
@ -77,7 +77,7 @@ DEFER: map-literals
[ path>literals ] [ ] bi write-modern-path ;
: rewrite-vocab-exact ( name -- )
modern-source-path rewrite-path-exact ;
vocab-source-path rewrite-path-exact ;
: rewrite-paths ( paths -- )
[ rewrite-path-exact ] each ;
@ -85,7 +85,7 @@ DEFER: map-literals
: strings-core-to-file ( -- )
core-bootstrap-vocabs
[ ".private" ?tail drop modern-source-path utf8 file-contents ] map-zip
[ ".private" ?tail drop vocab-source-path utf8 file-contents ] map-zip
[ "[========[" dup matching-delimiter-string surround ] assoc-map
[
first2 [ "VOCAB: " prepend ] dip " " glue

7
extra/pcre/pcre.factor
View File

@ -1,9 +1,10 @@
! Copyright (C) 2013, 2016 Björn Lindqvist
! See http://factorcode.org/license.txt for BSD license
USING: accessors alien alien.accessors alien.c-types alien.data
alien.enums alien.strings arrays assocs combinators fry
alien.enums alien.strings arrays assocs combinators
io.encodings.string io.encodings.utf8 kernel literals math
math.bitwise math.parser pcre.ffi regexp sequences splitting strings ;
math.bitwise math.parser pcre.ffi regexp sequences splitting
strings ;
IN: pcre
ERROR: bad-option what ;
@ -149,7 +150,7 @@ M: compiled-pcre findall
M: string findall
<compiled-pcre> findall ;
M: regexp:regexp findall
M: regexp::regexp findall
raw>> findall ;
: matches? ( subject obj -- ? )