extra: be more explicit about which 'run'

diff --git a/extra/benchmark/raytracer-simd/raytracer-simd.factor b/extra/benchmark/raytracer-simd/raytracer-simd.factor
index 13716b27c6fb0d4d4efa27394f8c8356be1dcc22..6052922a3967ff7821704bb8eb355d99533cfcc0 100644 (file)
--- a/extra/benchmark/raytracer-simd/raytracer-simd.factor
+++ b/extra/benchmark/raytracer-simd/raytracer-simd.factor
@@ -161,13 +161,13 @@ CONSTANT: create-offsets
 
 : pgm-pixel ( n -- ) 255 * 0.5 + >fixnum , ;
 
-: run ( -- string )
+: run-raytracer-simd ( -- string )
     levels double-4{ 0.0 -1.0 0.0 0.0 } 1.0 create ray-trace [
         size size pgm-header
         [ [ oversampling sq / pgm-pixel ] each ] each
     ] B{ } make ;
 
 : raytracer-simd-benchmark ( -- )
-    run "raytracer.pnm" temp-file binary set-file-contents ;
+    run-raytracer-simd "raytracer.pnm" temp-file binary set-file-contents ;
 
 MAIN: raytracer-simd-benchmark

diff --git a/extra/benchmark/raytracer/raytracer.factor b/extra/benchmark/raytracer/raytracer.factor
index 739d33053d95700804e8b738dfc0e41dda01fb52..4ecc0a6a0a2cfc72e45ac1af499de9333692f64c 100644 (file)
--- a/extra/benchmark/raytracer/raytracer.factor
+++ b/extra/benchmark/raytracer/raytracer.factor
@@ -175,13 +175,13 @@ DEFER: create
 : ray-trace ( scene -- pixels )
     pixel-grid [ [ ray-pixel ] with map ] with map ;
 
-: run ( -- string )
+: run-raytracer ( -- string )
     levels double-array{ 0.0 -1.0 0.0 } 1.0 create ray-trace [
         size size pgm-header
         [ [ oversampling sq / pgm-pixel ] each ] each
     ] B{ } make ;
 
 : raytracer-benchmark ( -- )
-    run "raytracer.pnm" temp-file binary set-file-contents ;
+    run-raytracer "raytracer.pnm" temp-file binary set-file-contents ;
 
 MAIN: raytracer-benchmark

diff --git a/extra/cairo-demo/cairo-demo.factor b/extra/cairo-demo/cairo-demo.factor
index 32d203ddfc063260621b9b37950b982d0eaa9dbe..b08729b7a1d8c1b2faf6af50894623667251f10a 100644 (file)
--- a/extra/cairo-demo/cairo-demo.factor
+++ b/extra/cairo-demo/cairo-demo.factor
@@ -78,9 +78,9 @@ M: cairo-demo-gadget ungraft* ( gadget -- )
 : <cairo-demo-gadget> ( -- gadget )
     cairo-demo-gadget new ;
 
-: run ( -- )
+: run-cairo-demo ( -- )
     [
         <cairo-demo-gadget> "Hello World from Factor!" open-window
     ] with-ui ;
 
-MAIN: run
+MAIN: run-cairo-demo