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

fix multiple using warning in stage1, core can't use io.encodings.binary

Doug Coleman 2009-05-17 18:05:46 -05:00
parent 12fe69f83f
commit 31e5090892
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/bootstrap/stage1.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays debugger generic hashtables io assocs kernel.private USING: arrays assocs continuations debugger generic hashtables
kernel math memory namespaces make parser prettyprint sequences init io io.files kernel kernel.private make math memory
vectors words system splitting init io.files vocabs vocabs.loader namespaces parser prettyprint sequences splitting system
debugger continuations ; vectors vocabs vocabs.loader words ;
QUALIFIED: bootstrap.image.private QUALIFIED: bootstrap.image.private
IN: bootstrap.stage1 IN: bootstrap.stage1

4
core/checksums/checksums.factor
View File

@ -1,7 +1,7 @@
! Copyright (c) 2008 Slava Pestov ! Copyright (c) 2008 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io io.backend io.files kernel math math.parser USING: accessors io io.backend io.files kernel math math.parser
sequences vectors io.encodings.binary quotations ; sequences vectors quotations ;
IN: checksums IN: checksums
MIXIN: checksum MIXIN: checksum
@ -39,7 +39,7 @@ GENERIC: get-checksum ( checksum -- value )
] with-input-stream ; ] with-input-stream ;
: add-checksum-file ( checksum-state path -- checksum-state ) : add-checksum-file ( checksum-state path -- checksum-state )
binary <file-reader> add-checksum-stream ; normalize-path (file-reader) add-checksum-stream ;
GENERIC: checksum-bytes ( bytes checksum -- value ) GENERIC: checksum-bytes ( bytes checksum -- value )