fix bootstrap problems

cvs
Slava Pestov 2005-10-13 05:48:16 +00:00
parent 94e6955fd0
commit 6e07be71ed
5 changed files with 6 additions and 7 deletions

View File

@ -1,5 +1,5 @@
IN: optimizer
USING: inference kernel sequences words ;
USING: inference kernel lists sequences words ;
! #if --> X
! |
@ -40,7 +40,7 @@ M: node split-node* ( node -- ) drop ;
: inline-literals ( node literals -- node )
#! Make #push -> #return -> successor
over drop-inputs [
>r [ literalize ] map dataflow [ subst-node ] keep
>r >list [ literalize ] map dataflow [ subst-node ] keep
r> set-node-successor
] keep ;

View File

@ -1,9 +1,9 @@
USING: io kernel parser sequences ;
[
"/library/opengl/sdl-gl.factor"
"/library/opengl/gl.factor"
"/library/opengl/glu.factor"
"/library/opengl/opengl-utils.factor"
] [
dup print run-resource
] each

View File

@ -21,7 +21,7 @@ M: label pref-dim ( label -- dim )
dup label-text label-size ;
M: label draw-gadget* ( label -- )
drop ; ! dup delegate draw-gadget* dup label-text draw-string ;
dup delegate draw-gadget* drop ; ! label-text draw-string ;
M: label set-message ( string/f label -- )
>r [ "" ] unless* r> set-label-text* ;

View File

@ -1,6 +1,5 @@
USING: kernel parser sequences io ;
[
"/library/ui/opengl.factor"
"/library/ui/freetype.factor"
"/library/ui/gadgets.factor"
"/library/ui/layouts.factor"

View File

@ -80,10 +80,10 @@ TUPLE: solid ;
! Solid pen
M: solid draw-interior
drop dup rect-dim swap bg gl-box ;
drop dup rect-dim swap bg gl-fill-rect ;
M: solid draw-boundary
drop dup rect-dim @{ 1 1 0 }@ v- swap fg gl-rectangle ;
drop dup rect-dim @{ 1 1 0 }@ v- swap fg gl-rect ;
! Rollover only
TUPLE: rollover-only ;