From b856b6294be23f3ac9abaee4006ee0806ccc2f7d Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 12 Sep 2005 01:57:21 +0000 Subject: [PATCH] fixes --- contrib/space-invaders/cpu-8080.factor | 8 ++++---- library/unix/io.factor | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/contrib/space-invaders/cpu-8080.factor b/contrib/space-invaders/cpu-8080.factor index 048bf9cfcc..bc4395148f 100644 --- a/contrib/space-invaders/cpu-8080.factor +++ b/contrib/space-invaders/cpu-8080.factor @@ -391,7 +391,7 @@ M: cpu write-port ( value port cpu -- ) : instruction-cycles ( -- vector ) #! Return a 256 element vector containing the cycles for #! each opcode in the 8080 instruction set. - { + @{ f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f @@ -399,12 +399,12 @@ M: cpu write-port ( value port cpu -- ) f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f - f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f } ; + f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ; : instructions ( -- vector ) #! Return a 256 element vector containing the emulation words for #! each opcode in the 8080 instruction set. - { + @{ f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f @@ -412,7 +412,7 @@ M: cpu write-port ( value port cpu -- ) f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f - f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f } ; inline + f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ; inline M: cpu reset ( cpu -- ) #! Reset the CPU to its poweron state diff --git a/library/unix/io.factor b/library/unix/io.factor index 450839793f..0680b79ffd 100644 --- a/library/unix/io.factor +++ b/library/unix/io.factor @@ -1,9 +1,9 @@ ! Copyright (C) 2004, 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: io-internals -USING: alien compiler-backend errors generic hashtables io -kernel kernel-internals lists math parser sequences -sequences-internals strings threads unix-internals vectors ; +USING: alien arrays compiler-backend errors generic hashtables +io kernel kernel-internals lists math parser sequences +strings threads unix-internals vectors ; ! We want namespaces::bind to shadow the bind system call from ! unix-internals