picolisp

commit c844ff963ff67d3d8ee39a762b0114d0f1fce321
parent e016b6c364e1fe0f46b1662834113a73282a4b5d
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 10 Feb 2011 10:44:24 +0100

Minor cleanups
Diffstat:
M
games/mine.l
 | 
6
++++--
M
games/nim.l
 | 
4
++--
M
games/ttt.l
 | 
6
++++--
M
lib/ps.l
 | 
6
+++---

4 files changed, 13 insertions(+), 9 deletions(-)
diff --git a/games/mine.l b/games/mine.l
@@ -1,7 +1,7 @@
-# 12jul10abu
+# 08feb11abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/term.l")
+(load "@lib/term.l")
 
 # Spielfeldbelegung:
 # NIL    Verdeckt: Leeres Feld
@@ -122,3 +122,5 @@
                   (xtRight (+ 2 (* 2 X))) ) ) )
          (xtLeft (+ 2 (* 2 X)))
          (xtDown (+ 3 (- *FeldY Y))) ) ) )
+
+# vi:et:ts=3:sw=3
diff --git a/games/nim.l b/games/nim.l
@@ -1,7 +1,7 @@
-# 31jan08abu
+# 08feb11abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/simul.l")
+(load "@lib/simul.l")
 
 # Nim
 (de nim Pos
diff --git a/games/ttt.l b/games/ttt.l
@@ -1,9 +1,9 @@
-# 15may07abu
+# 08feb11abu
 # (c) Software Lab. Alexander Burger
 
 # *Board
 
-(load "lib/simul.l")
+(load "@lib/simul.l")
 
 (de display ()
    (for Y (3 2 1)
@@ -70,3 +70,5 @@
       ((find3 T) "Congratulation, you won!")
       ((not (myMove)) "No moves")
       ((find3 0) "Sorry, you lost!") ) )
+
+# vi:et:ts=3:sw=3
diff --git a/lib/ps.l b/lib/ps.l
@@ -1,4 +1,4 @@
-# 08jun10abu
+# 10feb11abu
 # (c) Software Lab. Alexander Burger
 
 # "*Glyph" "*PgX" "*PgY"
@@ -255,8 +255,8 @@
 (de vline (X Y2 Y1)
    (poly NIL X (or Y2 "*DY") X (or Y1 0)) )
 
-(de border (Y)
-   (rect 0 (or Y 0) "*DX" "*Pos") )
+(de border (Y Y2)
+   (rect 0 (or Y 0) "*DX" (or Y2 "*DY")) )
 
 (de psEval ("Prg")
    (while "Prg"