extra: use [-] instead of "- 0 max".

[factor.git] / extra / hamurabi / hamurabi.factor

diff --git a/extra/hamurabi/hamurabi.factor b/extra/hamurabi/hamurabi.factor
index d0d7291d99cec0dd21c7e3579dc295abfd0ff565..812733d98c04dcd4dcf86d2eee765d8dfe572547 100644 (file)
--- a/extra/hamurabi/hamurabi.factor
+++ b/extra/hamurabi/hamurabi.factor
@@ -58,7 +58,7 @@ total-births total-deaths ;
     } cleave 100 /i 1 + ;
 
 : #starved ( game -- n )
-    [ population>> ] [ feed>> 20 /i ] bi - 0 max ;
+    [ population>> ] [ feed>> 20 /i ] bi [-] ;
 
 : leave-fink ( -- )
     "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" print