adsoda, 4DNav: fix compile errors exposed by stronger static checking

diff --git a/extra/4DNav/4DNav.factor b/extra/4DNav/4DNav.factor
index ee37b33fbff41b7765b82ea2c1009089458d2e55..aae0b40d381b521ec920dd6df43dcf852a1dd145 100755 (executable)
--- a/extra/4DNav/4DNav.factor
+++ b/extra/4DNav/4DNav.factor
@@ -172,7 +172,7 @@ VAR: present-space
         swap call space-ensure-solids \r
     >present-space \r
     update-model-projections \r
-    update-observer-projections ;\r
+    update-observer-projections ; inline\r
 \r
 : rotation-4D ( m -- ) \r
     '[ _ [ [ middle-of-space dup vneg ] keep \r

diff --git a/extra/adsoda/adsoda.factor b/extra/adsoda/adsoda.factor
index ec77501b8ffb067dbdfac59d003fe4d654d996ed..4042528eba3b5f5201bebdb69cc6f7082ab0b9b1 100755 (executable)
--- a/extra/adsoda/adsoda.factor
+++ b/extra/adsoda/adsoda.factor
@@ -60,7 +60,7 @@ t to: remove-hidden-solids?
 : dimension ( array -- x )      length 1- ; inline \r
 : last ( seq -- x )           [ dimension ] [ nth ] bi ; inline\r
 : change-last ( seq quot -- ) \r
-    [ [ dimension ] keep ] dip change-nth  ; \r
+    [ [ dimension ] keep ] dip change-nth  ; inline\r
 \r
 ! -------------------------------------------------------------\r
 ! light\r
@@ -445,7 +445,7 @@ TUPLE: space name dimension solids ambient-color lights ;
 \r
 : space-apply ( space m quot -- space ) \r
         curry [ map ] curry [ dup solids>> ] dip\r
-        [ call ] [ drop ] recover drop ;\r
+        [ call ] [ 2drop ] recover drop ; inline\r
 : space-transform ( space m -- space ) \r
     [ solid-transform ] space-apply ;\r
 : space-translate ( space v -- space ) \r