factor: fix load-all

modern-harvey2
Doug Coleman 2017-09-11 17:43:28 -05:00
parent 5d7c397b00
commit eb1bcf642c
7 changed files with 16 additions and 11 deletions

View File

@ -6,7 +6,8 @@ literals locals math math.functions math.trig models opengl
opengl.demo-support opengl.gl sequences threads ui ui.gadgets opengl.demo-support opengl.gl sequences threads ui ui.gadgets
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.frames ui.gadgets.borders ui.gadgets.buttons ui.gadgets.frames
ui.gadgets.grids ui.gadgets.labeled ui.gadgets.labels ui.gadgets.grids ui.gadgets.labeled ui.gadgets.labels
ui.gadgets.packs ui.gadgets.sliders ui.render ; ui.gadgets.packs ui.gadgets.sliders ui.render
combinators.smart.syntax ;
QUALIFIED-WITH: models.range mr QUALIFIED-WITH: models.range mr
IN: boids IN: boids

View File

@ -47,12 +47,12 @@ M: object expr>str unparse ;
basic-block get number>> ; basic-block get number>> ;
: add-gvns ( graph -- graph' ) : add-gvns ( graph -- graph' )
"gvns" [add-node "gvns" add-node[
congruence-classes =label congruence-classes =label
"plaintext" =shape "plaintext" =shape
]; ]
"gvns" 0 [add-edge "invis" =style ]; "gvns" 0 add-edge[ "invis" =style ]
basic-block# [add-node "bold" =style ]; basic-block# add-node[ "bold" =style ]
; ;
SYMBOL: iteration SYMBOL: iteration

View File

@ -4,7 +4,8 @@ USING: accessors alien.c-types alien.data arrays circular colors
colors.constants columns destructors fonts gpu.buffers colors.constants columns destructors fonts gpu.buffers
gpu.render gpu.shaders gpu.state gpu.textures images kernel gpu.render gpu.shaders gpu.state gpu.textures images kernel
literals locals make math math.constants math.functions literals locals make math math.constants math.functions
math.vectors sequences specialized-arrays typed ui.text fry ; math.vectors sequences specialized-arrays typed ui.text fry
multiline ;
FROM: alien.c-types => float ; FROM: alien.c-types => float ;
SPECIALIZED-ARRAYS: float uint ; SPECIALIZED-ARRAYS: float uint ;
IN: game.debug IN: game.debug

View File

@ -1,7 +1,8 @@
! Copyright (c) 2012 Anonymous ! Copyright (c) 2012 Anonymous
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays formatting kernel literals math USING: accessors arrays combinators.smart.syntax formatting
math.functions math.matrices math.ranges sequences ; kernel literals math math.functions math.matrices math.ranges
sequences ;
IN: rosetta-code.pythagorean-triples IN: rosetta-code.pythagorean-triples
! http://rosettacode.org/wiki/Pythagorean_triples ! http://rosettacode.org/wiki/Pythagorean_triples

View File

@ -3,7 +3,7 @@
USING: accessors arrays colors fonts fry help.markup help.stylesheet USING: accessors arrays colors fonts fry help.markup help.stylesheet
io.styles kernel literals math math.ranges models namespaces parser io.styles kernel literals math math.ranges models namespaces parser
sequences system ui ui.gadgets ui.gadgets.books ui.gadgets.panes sequences system ui ui.gadgets ui.gadgets.books ui.gadgets.panes
ui.gestures ui.pens.gradient ui.pens.solid ; ui.gestures ui.pens.gradient ui.pens.solid combinators.smart.syntax ;
IN: slides IN: slides
CONSTANT: stylesheet CONSTANT: stylesheet

View File

@ -87,7 +87,7 @@ CONSTANT: node-colors {
: <heap-graph> ( -- graph ) : <heap-graph> ( -- graph )
<digraph> <digraph>
[graph "dot" =layout ]; graph[ "dot" =layout ]
<graph-attributes> "false" >>overlap add ; <graph-attributes> "false" >>overlap add ;
: image>graph ( image -- graph ) : image>graph ( image -- graph )

View File

@ -6,7 +6,9 @@ math.constants math.functions sequences ui ui.gadgets
ui.gadgets.charts ui.gadgets.charts.axes ui.gadgets.charts.lines ; ui.gadgets.charts ui.gadgets.charts.axes ui.gadgets.charts.lines ;
IN: ui.gadgets.charts.demos IN: ui.gadgets.charts.demos
CONSTANT: -pi $[ pi neg ] <<
CONSTANT: -pi 1[ pi neg ]
>>
: sine-wave ( steps -- seq ) : sine-wave ( steps -- seq )
[ <iota> ] keep [ <iota> ] keep