From 0635fe6d3861379a07037dd2afc7e39686552116 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 3 Dec 2005 21:13:09 +0000 Subject: [PATCH] fix directory listing --- library/compiler/ppc/fixnum.factor | 4 ++-- library/compiler/ppc/stack.factor | 3 ++- library/io/files.factor | 2 +- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/library/compiler/ppc/fixnum.factor b/library/compiler/ppc/fixnum.factor index e7df0c9bf2..f96dce5e6d 100644 --- a/library/compiler/ppc/fixnum.factor +++ b/library/compiler/ppc/fixnum.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: compiler-backend -USING: assembler compiler kernel math math-internals memory -namespaces words ; +USING: assembler compiler kernel kernel-internals math +math-internals memory namespaces words ; : >3-imm< ( vop -- out1 in2 in1 ) [ 0 vop-out v>operand ] keep diff --git a/library/compiler/ppc/stack.factor b/library/compiler/ppc/stack.factor index 752ec59f53..32de35cf5f 100644 --- a/library/compiler/ppc/stack.factor +++ b/library/compiler/ppc/stack.factor @@ -1,7 +1,8 @@ ! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: compiler-backend -USING: assembler compiler errors kernel math memory words ; +USING: assembler compiler errors kernel kernel-internals math +memory words ; GENERIC: loc>operand diff --git a/library/io/files.factor b/library/io/files.factor index 3403a80159..5422c74d8c 100644 --- a/library/io/files.factor +++ b/library/io/files.factor @@ -34,7 +34,7 @@ DEFER: directory. dup directory? [ >r "/" append r> dup [ directory. ] curry outline set - ] when swap file set + ] when file set ] make-hash ; : file. ( dir name -- )