[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory cl-net:/tmp/cvs-serv27245

Modified Files:
	mf.lisp 
Log Message:
Make it possible to use cycle after --.


--- /project/gsharp/cvsroot/gsharp/mf.lisp	2007/07/17 06:36:32	1.2
+++ /project/gsharp/cvsroot/gsharp/mf.lisp	2008/11/15 17:19:38	1.3
@@ -136,8 +136,10 @@
 		     (setf (curl (right-context x)) (slot-value y 'curl))
 		     (setf (direction (right-context x)) (slot-value y 'direction)))
 		 (if (typep y 'curl)
-		     (setf (curl (left-context z)) (slot-value y 'curl))
-		     (setf (direction (left-context z)) (slot-value y 'direction)))))))
+		     (setf (curl (left-context (if (eq z *cycle*) (car path) z)))
+			   (slot-value y 'curl))
+		     (setf (direction (left-context (if (eq z *cycle*) (car path) z)))
+			   (slot-value y 'direction)))))))
 
 (defun propagate-tensions-controls (path)
   (loop for (x y z) on path