picolisp

commit bbce8a990afc0b0a50fe29a359ee1bb1e89df2e4
parent 8a6b93197c961c28b84c06647fbbd3925b33f722
Author: Commit-Bot <unknown>
Date:   Thu, 16 Dec 2010 07:07:19 +0000

Automatic commit from picoLisp.tgz, From: Thu, 16 Dec 2010 07:07:19 GMT
Diffstat:
M
misc/maze.l
 | 
8
++------

1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/misc/maze.l b/misc/maze.l
@@ -1,4 +1,4 @@
-# 14dec10abu
+# 16dec10abu
 # (c) Software Lab. Alexander Burger
 
 # ./dbg misc/maze.l -"setq M (maze 16 12)" -"display M" -bye
@@ -28,11 +28,7 @@
                      (: south)
                      (or
                         (: north)
-                        (and (= X 1) (= Y DY)) ) ) ) )
-            (=: west)
-            (=: east)
-            (=: south)
-            (=: north) ) )
+                        (and (= X 1) (= Y DY)) ) ) ) ) ) )
       Maze ) )
 
 (de display (Maze)