foo

diff --git a/library/sdl/load.factor b/library/sdl/load.factor
deleted file mode 100644 (file)
index 5454f72..0000000
--- a/library/sdl/load.factor
+++ /dev/null
@@ -1,13 +0,0 @@
-USING: kernel parser sequences io ;
-[
-    "/library/sdl/sdl.factor"
-    "/library/sdl/sdl-video.factor"
-    "/library/sdl/sdl-event.factor"
-    "/library/sdl/sdl-gfx.factor"
-    "/library/sdl/sdl-keysym.factor"
-    "/library/sdl/sdl-keyboard.factor"
-    "/library/sdl/sdl-ttf.factor"
-    "/library/sdl/sdl-utils.factor"
-] [
-    dup print run-resource
-] each

diff --git a/library/ui/load.factor b/library/ui/load.factor
index 8fa46733ce0713d5034a6199e7187a1ccd47afc5..b996162deb62f2f349ed0f53dd571cd0c95bbe7a 100644 (file)
--- a/library/ui/load.factor
+++ b/library/ui/load.factor
@@ -1,4 +1,4 @@
-USING: image kernel parser sequences io ;
+USING: kernel parser sequences io ;
 [
     "/library/ui/gadgets.factor"
     "/library/ui/hierarchy.factor"
@@ -25,7 +25,5 @@ USING: image kernel parser sequences io ;
     "/library/ui/books.factor"
     "/library/ui/ui.factor"
 ] [
-    dup print
-    bootstrapping? get
-    [ parse-resource % ] [ run-resource ] ifte
+    dup print run-resource
 ] each

diff --git a/library/ui/paint.factor b/library/ui/paint.factor
index ec9b8979d825f532f4eefce65c89a033afc65516..cdd1f1f06fef039f14643421d307a6541c8e01c3 100644 (file)
--- a/library/ui/paint.factor
+++ b/library/ui/paint.factor
@@ -27,7 +27,7 @@ GENERIC: draw-gadget* ( gadget -- )
 
 : translate&clip ( gadget -- )
     screen-bounds dup rect-loc origin set
-    clip [ intersect dup ] change ( set-clip ) drop ;
+    clip [ intersect dup ] change set-clip ;
 
 : draw-gadget ( gadget -- )
     dup gadget-visible? [