X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=dungeon-master%2Fgenerators%2Ftown.scm;fp=dungeon-master%2Fgenerators%2Ftown.scm;h=cefa138308d0a3dbe8854b12edc52b5563e50460;hp=e8e6d95b73ad6528105b08a3bb63881ddad031d6;hb=09c4aef3b2dde4e8fdf0a4b673b36c1ddbc84b6e;hpb=35202c3698d8858b4d81347253e23fe6d4a01bef

diff --git a/dungeon-master/generators/town.scm b/dungeon-master/generators/town.scm
index e8e6d95..cefa138 100644
--- a/dungeon-master/generators/town.scm
+++ b/dungeon-master/generators/town.scm
@@ -17,7 +17,7 @@
 
 (define (build-patches n-patches)
   (define* (get-points n seed #:optional (l '()))
-    (cond ((> n 0)
+    (cond ((>= n 0)
            (let* ((a (+ seed (* (sqrt n) 5)))
                   (r (if (= n 0)
                          0