Updated lindenmayer for 0.82

diff --git a/contrib/x11/examples/lindenmayer/lindenmayer.factor b/contrib/x11/examples/lindenmayer/lindenmayer.factor
index 0f420249d532b0560ac375fbe9c20b9e990fa8f0..2e03834608527757e58ba9b2740ce4604db276b1 100644 (file)
--- a/contrib/x11/examples/lindenmayer/lindenmayer.factor
+++ b/contrib/x11/examples/lindenmayer/lindenmayer.factor
@@ -145,6 +145,8 @@ cond ;
 ! Lindenmayer string interpretation
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: last ( seq -- [ last-item ] ) dup length* 1 - swap tail ;
+
 SYMBOL: command-table
 
 : segment-command ( seg -- command ) 1 swap head ;

diff --git a/contrib/x11/examples/lindenmayer/load.factor b/contrib/x11/examples/lindenmayer/load.factor
index 58dbad21d9a60353009cf18a90349ea7d65184fa..7da2d70a198b19f681c7c8b18525b1f5b1c8bc7c 100644 (file)
--- a/contrib/x11/examples/lindenmayer/load.factor
+++ b/contrib/x11/examples/lindenmayer/load.factor
@@ -1,4 +1,5 @@
 USING: parser words compiler sequences ;
-"lindenmayer.factor" run-file
-"viewer.factor" run-file
+
+"contrib/x11/examples/lindenmayer/lindenmayer.factor" run-resource
+"contrib/x11/examples/lindenmayer/viewer.factor" run-resource
 "lindenmayer" words [ try-compile ] each
\ No newline at end of file

diff --git a/contrib/x11/examples/lindenmayer/viewer.factor b/contrib/x11/examples/lindenmayer/viewer.factor
index 3b7e20d267ac46a22838b449f26583fef001d1b2..c738e85292f320ac98e086b3b594d696014bc077 100644 (file)
--- a/contrib/x11/examples/lindenmayer/viewer.factor
+++ b/contrib/x11/examples/lindenmayer/viewer.factor
@@ -1,5 +1,5 @@
 USING: kernel alien math arrays sequences opengl namespaces concurrency
-xlib x x11 gl concurrent-widgets lindenmayer ;
+x11 x gl concurrent-widgets lindenmayer ;
 
 IN: lindenmayer