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

Fix minor load problems from words being moved around

db4
Slava Pestov 2008-07-28 23:20:54 -05:00
parent 8a2f1d0451
commit 13f52ea659
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/libc/libc.factor
View File

@ -23,11 +23,12 @@ IN: libc
SYMBOL: malloc-expiry SYMBOL: malloc-expiry
: mallocs ( -- assoc ) : mallocs ( -- assoc )
malloc-expiry get-global dup expired? [ malloc-expiry get-global expired? [
drop
-1 <alien> malloc-expiry set-global -1 <alien> malloc-expiry set-global
H{ } clone dup \ mallocs set-global H{ } clone dup \ mallocs set-global
] when ; ] [
\ mallocs get-global
] if ;
PRIVATE> PRIVATE>

2
extra/builder/util/util.factor
View File

@ -6,7 +6,7 @@ USING: kernel words namespaces classes parser continuations
combinators sequences splitting quotations arrays strings tools.time combinators sequences splitting quotations arrays strings tools.time
sequences.deep accessors assocs.lib sequences.deep accessors assocs.lib
io.encodings.utf8 io.encodings.utf8
combinators.cleave calendar calendar.format ; combinators.cleave calendar calendar.format eval ;
IN: builder.util IN: builder.util

2
extra/shell/shell.factor
View File

@ -3,7 +3,7 @@ USING: kernel parser words continuations namespaces debugger
sequences combinators splitting prettyprint sequences combinators splitting prettyprint
system io io.files io.launcher io.encodings.utf8 io.pipes sequences.deep system io io.files io.launcher io.encodings.utf8 io.pipes sequences.deep
accessors multi-methods newfx shell.parser accessors multi-methods newfx shell.parser
combinators.short-circuit ; combinators.short-circuit eval ;
IN: shell IN: shell