# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1460993189 0
# Node ID 5962c575282f37dfd854e03b95d82c12a4917982
# Parent  f3aa63a7ee45f0d4c69cafda49ee19acb44b3781
Make all the arrows in comments consistent

diff -r f3aa63a7ee45 -r 5962c575282f src/wam/compiler.lisp
--- a/src/wam/compiler.lisp	Mon Apr 18 15:22:44 2016 +0000
+++ b/src/wam/compiler.lisp	Mon Apr 18 15:26:29 2016 +0000
@@ -368,14 +368,14 @@
 ;;;
 ;;; Turns:
 ;;;
-;;;   X0 -> p(X1, X2)
-;;;   X1 -> A
-;;;   X2 -> q(X1, X3)
-;;;   X3 -> B
+;;;   X0 <- p(X1, X2)
+;;;   X1 <- A
+;;;   X2 <- q(X1, X3)
+;;;   X3 <- B
 ;;;
 ;;; into something like:
 ;;;
-;;;   X2 -> q(X1, X3), X0 -> p(X1, X2)
+;;;   X2 <- q(X1, X3), X0 <- p(X1, X2)
 
 (defun find-dependencies (assignments)
   "Return a list of dependencies amongst the given registers.
@@ -431,7 +431,7 @@
 ;;;
 ;;; It turns:
 ;;;
-;;;   X2 -> q(X1, X3), X0 -> p(X1, X2), A3 <- X4
+;;;   X2 <- q(X1, X3), X0 <- p(X1, X2), A3 <- X4
 ;;;
 ;;; into something like:
 ;;;