load-everything fixes

db4
Slava Pestov 2008-02-16 01:52:22 -06:00
parent 5ff752dc12
commit 7217e6756a
4 changed files with 7 additions and 10 deletions

View File

@ -37,18 +37,15 @@ C: <ast-hashtable> ast-hashtable
: identifier-middle? ( ch -- bool )
[ blank? not ] keep
[ CHAR: } = not ] keep
[ CHAR: ] = not ] keep
[ CHAR: ;" = not ] keep
[ CHAR: " = not ] keep
[ "}];\"" member? not ] keep
digit? not
and and and and and ;
and and ;
MEMO: 'identifier-ends' ( -- parser )
[
[ blank? not ] keep
[ CHAR: " = not ] keep
[ CHAR: ;" = not ] keep
[ CHAR: ; = not ] keep
[ LETTER? not ] keep
[ letter? not ] keep
identifier-middle? not

2
extra/id3/id3.factor Normal file → Executable file
View File

@ -3,7 +3,7 @@
!
USING: arrays combinators io io.binary io.files io.paths
io.utf16 kernel math math.parser namespaces sequences
io.encodings.utf16 kernel math math.parser namespaces sequences
splitting strings assocs unicode.categories ;
IN: id3

View File

@ -1,13 +1,13 @@
IN: optimizer.report
USING: assocs words sequences arrays compiler tools.time
io.styles io prettyprint vocabs kernel sorting generator
optimizer ;
optimizer math ;
: count-optimization-passes ( nodes n -- n )
>r optimize-1
[ r> 1+ count-optimization-passes ] [ drop r> ] if ;
: word-table
: results
[ [ second ] swap compose compare ] curry sort 20 tail*
print
standard-table-style

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license.
USING: io.files io words alien kernel math.parser alien.syntax
io.launcher system assocs arrays sequences namespaces qualified
system math windows.kernel32 generator.fixup ;
system math generator.fixup ;
IN: tools.disassembler
: in-file "gdb-in.txt" resource-path ;