fix bug of extended-preview-controller

euslisp · Jul 15, 2019 · 9cc1d0f · 9cc1d0f
1 parent 36d6866
commit 9cc1d0f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/irteus/irtdyna.l b/irteus/irtdyna.l
@@ -1446,7 +1446,7 @@
 	   (R+btPb-1bt (m* R+btPb-1 bt))
 	   (qt (scale-matrix Q ct)))
       (dotimes (i delay)
-	(let* ((qt (if (= i (1- delay)) (m* P qt) qt))
+	(let* ((qt (if (= i (1- delay)) (m* P ct) qt))
                (fa (m* R+btPb-1 (m* bt (m* gsi qt)))))
           (setq gsi (m* A-bKt gsi))
           (dotimes (ii input-dim)