diff --git a/contrib/x11/examples/lindenmayer/lindenmayer.factor b/contrib/x11/examples/lindenmayer/lindenmayer.factor index 2e5f0afee6..9f74580564 100644 --- a/contrib/x11/examples/lindenmayer/lindenmayer.factor +++ b/contrib/x11/examples/lindenmayer/lindenmayer.factor @@ -208,14 +208,10 @@ H{ [[ "+" [ angle get rotate-y ] ]] [[ "z" [ length get 2 / move-forward ] ]] [[ "g" [ length get sneak-forward ] ]] -! [[ "." [ record-vertex ] ]] [[ "." [ polygon-vertex ] ]] [[ "[" [ save-state ] ]] [[ "]" [ restore-state ] ]] -! [[ "{" [ GL_LINE_LOOP glBegin ] ]] -! [[ "{" [ GL_POLYGON glBegin ] ]] [[ "{" [ start-polygon ] ]] -! [[ "}" [ glEnd ] ]] [[ "}" [ finish-polygon ] ]] [[ "/" [ 1.1 scale-length ] ]] diff --git a/contrib/x11/examples/lindenmayer/load.factor b/contrib/x11/examples/lindenmayer/load.factor new file mode 100644 index 0000000000..7432cf6453 --- /dev/null +++ b/contrib/x11/examples/lindenmayer/load.factor @@ -0,0 +1,5 @@ +USING: kernel parser words compiler sequences ; + +"lindenmayer.factor" run-file + +"lindenmayer" words [ try-compile ] each clear