fix bootstrap problems
parent
94e6955fd0
commit
6e07be71ed
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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* ;
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue