picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 3fddb576da4d1c9c1e86cb486f8052433d2ca30e
parent 13100aa2e8f860869762273a348ef38d3ff9b924
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 14 Apr 2013 17:44:43 +0200

Minor adjustment
Diffstat:
Mmisc/rcsim.l | 6+++---
1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/misc/rcsim.l b/misc/rcsim.l @@ -455,7 +455,7 @@ (de go () (when (z3dWindow "RC Simulator" 800 600) (quit @) ) - (task (*/ -1000 *DT 1.0) 0 # -Milliseconds + (task `(*/ -1000 *DT 1.0) 0 # -Milliseconds (let (U (usec) R (assoc @ *Run)) (sim> *Scene) (sim> *Model) @@ -478,7 +478,7 @@ (set (cdr R) (min -2 (+ - (*/ -1000 *DT 1.0) # -Milliseconds - (/ (- (usec) U) 1000) ) ) ) ) ) ) + `(*/ -1000 *DT 1.0) # -Milliseconds + (*/ (- (usec) U) 1000) ) ) ) ) ) ) # vi:et:ts=3:sw=3