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

View File

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

View File

@ -21,7 +21,7 @@ M: label pref-dim ( label -- dim )
dup label-text label-size ; dup label-text label-size ;
M: label draw-gadget* ( label -- ) 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 -- ) M: label set-message ( string/f label -- )
>r [ "" ] unless* r> set-label-text* ; >r [ "" ] unless* r> set-label-text* ;

View File

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

View File

@ -80,10 +80,10 @@ TUPLE: solid ;
! Solid pen ! Solid pen
M: solid draw-interior 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 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 ! Rollover only
TUPLE: rollover-only ; TUPLE: rollover-only ;