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

fix load errors

db4
Doug Coleman 2008-01-17 12:53:29 -10:00
parent a61f51bd14
commit 43ee25cdf7
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/shufflers/shufflers-docs.factor
View File

@ -1,4 +1,5 @@
USING: shufflers help.syntax help.markup ; USING: help.syntax help.markup ;
IN: shufflers
HELP: SHUFFLE: HELP: SHUFFLE:
{ $syntax "SHUFFLE: alphabet #" } { $syntax "SHUFFLE: alphabet #" }

2
extra/shufflers/shufflers.factor
View File

@ -29,7 +29,7 @@ IN: shufflers
: define-shuffles ( names max-out -- ) : define-shuffles ( names max-out -- )
in-shuffle over length make-shuffles [ in-shuffle over length make-shuffles [
[ shuffle>string create-in ] keep [ shuffle>string create-in ] keep
shuffle>quot dupd define-compound put-effect shuffle>quot dupd define put-effect
] with each out-shuffle ; ] with each out-shuffle ;
: SHUFFLE: : SHUFFLE:

4
extra/state-machine/state-machine.factor
View File

@ -7,7 +7,7 @@ IN: state-machine
";" parse-tokens ";" parse-tokens
[ length ] keep [ length ] keep
unclip add unclip add
[ create-in swap 1quotation define-compound ] 2each ; parsing [ create-in swap 1quotation define ] 2each ; parsing
TUPLE: state place data ; TUPLE: state place data ;
@ -27,7 +27,7 @@ M: missing-state error.
: define-machine ( word state-class -- ) : define-machine ( word state-class -- )
execute make-machine execute make-machine
>r over r> define-compound >r over r> define
"state-table" set-word-prop ; "state-table" set-word-prop ;
: MACHINE: : MACHINE:

2
extra/tools/deploy/shaker/shaker.factor
View File

@ -5,7 +5,7 @@ assocs kernel vocabs words sequences memory io system arrays
continuations math definitions mirrors splitting parser classes continuations math definitions mirrors splitting parser classes
inspector layouts vocabs.loader prettyprint.config prettyprint inspector layouts vocabs.loader prettyprint.config prettyprint
debugger io.streams.c io.streams.duplex io.files io.backend debugger io.streams.c io.streams.duplex io.files io.backend
quotations words.private tools.deploy.config ; quotations words.private tools.deploy.config compliler.units ;
IN: tools.deploy.shaker IN: tools.deploy.shaker
: show ( msg -- ) : show ( msg -- )