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

factor: fix load-all except for two issues

locals-and-roots
Doug Coleman 2016-06-22 16:32:38 -07:00
parent e6aedf0d4c
commit 6c006203e7
5 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
benchmarks/benchmark/regex-dna/regex-dna.factor
View File

@ -28,17 +28,17 @@ IN: benchmark.regex-dna
: do-replacements ( string -- string' ) : do-replacements ( string -- string' )
{ {
{ R/ B/ "(c|g|t)" } { R[[ B]] "(c|g|t)" }
{ R/ D/ "(a|g|t)" } { R[[ D]] "(a|g|t)" }
{ R/ H/ "(a|c|t)" } { R[[ H]] "(a|c|t)" }
{ R/ K/ "(g|t)" } { R[[ K]] "(g|t)" }
{ R/ M/ "(a|c)" } { R[[ M]] "(a|c)" }
{ R/ N/ "(a|c|g|t)" } { R[[ N]] "(a|c|g|t)" }
{ R/ R/ "(a|g)" } { R[[ R]] "(a|g)" }
{ R/ S/ "(c|t)" } { R[[ S]] "(c|t)" }
{ R/ V/ "(a|c|g)" } { R[[ V]] "(a|c|g)" }
{ R/ W/ "(a|t)" } { R[[ W]] "(a|t)" }
{ R/ Y/ "(c|t)" } { R[[ Y]] "(c|t)" }
} [ re-replace ] assoc-each ; } [ re-replace ] assoc-each ;
SYMBOL: ilen SYMBOL: ilen

3
demos/rosetta-code/image-noise/image-noise.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar images images.viewer kernel math USING: accessors calendar images images.viewer kernel math
math.parser models models.arrow random sequences threads timers math.parser models models.arrow random sequences threads timers
ui ui.gadgets ui.gadgets.labels ui.gadgets.packs ; ui ui.gadgets ui.gadgets.labels ui.gadgets.packs
ui.gadgets.status-bar ui.gadgets.worlds ;
IN: rosetta-code.image-noise IN: rosetta-code.image-noise
: bits>pixels ( bits -- bits' pixels ) : bits>pixels ( bits -- bits' pixels )

2
frameworks/gpu/shaders/shaders.factor
View File

@ -591,7 +591,7 @@ SYNTAX: \ GLSL-SHADER:
scan-word scan-word
f f
lexer get line>> lexer get line>>
scan-object scan-object ";" expect
] dip ] dip
shader boa shader boa
over reset-generic over reset-generic

2
webapps/webapps/blogs/blogs.factor
View File

@ -34,7 +34,7 @@ can-administer-blogs? define-capability
TUPLE: entity id author date content ; TUPLE: entity id author date content ;
GENERIC: entity-url ( entity -- url ) GENERIC: entity-url ( entity -- url ) ;
M: entity feed-entry-url entity-url ; M: entity feed-entry-url entity-url ;

2
webapps/webapps/pastebin/pastebin.factor
View File

@ -44,7 +44,7 @@ entity f
{ "contents" "CONTENTS" TEXT +not-null+ } { "contents" "CONTENTS" TEXT +not-null+ }
} define-persistent } define-persistent
GENERIC: entity-url ( entity -- url ) GENERIC: entity-url ( entity -- url ) ;
M: entity feed-entry-title summary>> ; M: entity feed-entry-title summary>> ;