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

Remove redundant call to normalize-path

db4
Slava Pestov 2008-12-15 19:46:43 -06:00
parent daf2857d7b
commit ad2a44ddc7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/graphics/bitmap/bitmap.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007 Doug Coleman. ! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien arrays byte-arrays combinators summary io.backend USING: alien arrays byte-arrays combinators summary
graphics.viewer io io.binary io.files kernel libc math graphics.viewer io io.binary io.files kernel libc math
math.functions math.bitwise namespaces opengl opengl.gl math.functions math.bitwise namespaces opengl opengl.gl
prettyprint sequences strings ui ui.gadgets.panes fry prettyprint sequences strings ui ui.gadgets.panes fry
@ -91,7 +91,7 @@ M: bitmap-magic summary
dup color-index-length read >>color-index drop ; dup color-index-length read >>color-index drop ;
: load-bitmap ( path -- bitmap ) : load-bitmap ( path -- bitmap )
normalize-path binary [ binary [
bitmap new bitmap new
dup parse-file-header dup parse-file-header
dup parse-bitmap-header dup parse-bitmap-header