]> gitweb.factorcode.org Git - factor.git/commitdiff
Remove redundant call to normalize-path
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 16 Dec 2008 01:46:43 +0000 (19:46 -0600)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 16 Dec 2008 01:46:43 +0000 (19:46 -0600)
extra/graphics/bitmap/bitmap.factor

index 9bb8db0f6d5302f791714577c1d780bc5a996971..a0212e47dedbb543e40f4991e6eeef35bc08e6ab 100755 (executable)
@@ -1,7 +1,7 @@
 ! Copyright (C) 2007 Doug Coleman.
 ! 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
 math.functions math.bitwise namespaces opengl opengl.gl
 prettyprint sequences strings ui ui.gadgets.panes fry
@@ -91,7 +91,7 @@ M: bitmap-magic summary
     dup color-index-length read >>color-index drop ;
 
 : load-bitmap ( path -- bitmap )
-    normalize-path binary [
+    binary [
         bitmap new
             dup parse-file-header
             dup parse-bitmap-header