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

factor: fix a few issues with new patch.

paths
Doug Coleman 2018-06-19 23:39:33 -05:00
parent 9f213f96f6
commit 88e58f9da8
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/shuffle/shuffle.factor
View File

@ -14,6 +14,4 @@ MACRO: shuffle-effect ( effect -- quot )
SYNTAX: shuffle( SYNTAX: shuffle(
")" parse-effect suffix! \ shuffle-effect suffix! ; ")" parse-effect suffix! \ shuffle-effect suffix! ;
: spin ( x y z -- z y x ) swap rot ; inline deprecated
: 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline : 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline

2
extra/24-game/24-game.factor
View File

@ -1,7 +1,7 @@
! Copyright © 2008 Reginald Keith Ford II ! Copyright © 2008 Reginald Keith Ford II
! 24, the Factor game! ! 24, the Factor game!
USING: accessors backtrack combinators continuations formatting fry io USING: accessors backtrack combinators continuations formatting fry io
kernel math prettyprint quotations random sequences shuffle ; kernel math prettyprint quotations random sequences ;
IN: 24-game IN: 24-game
: nop ( -- ) ; : nop ( -- ) ;

2
extra/pcre/pcre.factor
View File

@ -90,7 +90,7 @@ ERROR: pcre-error value ;
0 { c-string } [ pcre_study ] with-out-parameters drop ; 0 { c-string } [ pcre_study ] with-out-parameters drop ;
: exec ( pcre extra subject ofs opts -- count match-data ) : exec ( pcre extra subject ofs opts -- count match-data )
[ dup length ] 2dip 30 int <c-array> 30 [ pcre_exec ] keepd; [ dup length ] 2dip 30 int <c-array> 30 [ pcre_exec ] keepd ;
TUPLE: matcher pcre extra subject ofs exec-opts ; TUPLE: matcher pcre extra subject ofs exec-opts ;