From ad2a44ddc7335e1c83af0686e95276f323deb547 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 15 Dec 2008 19:46:43 -0600 Subject: [PATCH] Remove redundant call to normalize-path --- extra/graphics/bitmap/bitmap.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/graphics/bitmap/bitmap.factor b/extra/graphics/bitmap/bitmap.factor index 9bb8db0f6d..a0212e47de 100755 --- a/extra/graphics/bitmap/bitmap.factor +++ b/extra/graphics/bitmap/bitmap.factor @@ -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