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

fix directory listing

cvs
Slava Pestov 2005-12-03 21:13:09 +00:00
parent ab015a2fe0
commit 0635fe6d38
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/compiler/ppc/fixnum.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005 Slava Pestov. ! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: compiler-backend IN: compiler-backend
USING: assembler compiler kernel math math-internals memory USING: assembler compiler kernel kernel-internals math
namespaces words ; math-internals memory namespaces words ;
: >3-imm< ( vop -- out1 in2 in1 ) : >3-imm< ( vop -- out1 in2 in1 )
[ 0 vop-out v>operand ] keep [ 0 vop-out v>operand ] keep

3
library/compiler/ppc/stack.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2005 Slava Pestov. ! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: compiler-backend IN: compiler-backend
USING: assembler compiler errors kernel math memory words ; USING: assembler compiler errors kernel kernel-internals math
memory words ;
GENERIC: loc>operand GENERIC: loc>operand

2
library/io/files.factor
View File

@ -34,7 +34,7 @@ DEFER: directory.
dup directory? [ dup directory? [
>r "/" append r> >r "/" append r>
dup [ directory. ] curry outline set dup [ directory. ] curry outline set
] when swap file set ] when file set
] make-hash ; ] make-hash ;
: file. ( dir name -- ) : file. ( dir name -- )