From 7e5a0285d3dcdfba4cac2c68ab600e1928ca0d52 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Thu, 26 Jan 2012 12:14:13 -0700
Subject: [PATCH] [honu] replace := with =

---
 collects/honu/core/main.rkt             | 4 ++--
 collects/honu/core/private/honu2.rkt    | 2 +-
 collects/honu/core/private/literals.rkt | 4 ++--
 collects/honu/core/private/operator.rkt | 4 ++--
 collects/honu/core/private/parse2.rkt   | 3 ++-
 5 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/collects/honu/core/main.rkt b/collects/honu/core/main.rkt
index 3c46ddaa6a..74ae807a90 100644
--- a/collects/honu/core/main.rkt
+++ b/collects/honu/core/main.rkt
@@ -51,7 +51,7 @@
                                    [honu->= >=]
                                    [honu-<= <=]
                                    ;; [honu-equal =]
-                                   [honu-assignment :=]
+                                   ;; [honu-assignment :=]
                                    [honu-map map]
                                    [honu-flow \|]
                                    [honu-dot %dot]
@@ -64,7 +64,7 @@
                                    [honu-structure structure]
                                    [honu-structure struct]
                                    [honu-syntax syntax]
-                                   [literal:honu-equal =]
+                                   [honu-equal =]
                                    [literal:honu-prefix prefix]
                                    [literal:honu-then then]
                                    [literal:colon %colon]
diff --git a/collects/honu/core/private/honu2.rkt b/collects/honu/core/private/honu2.rkt
index e3595b936f..8e1cd4c3a3 100644
--- a/collects/honu/core/private/honu2.rkt
+++ b/collects/honu/core/private/honu2.rkt
@@ -12,7 +12,6 @@
                   honu-in
                   honu-in-lines
                   honu-prefix
-                  honu-equal
                   semicolon
                   honu-comma
                   define-literal
@@ -370,6 +369,7 @@
                  #:with variable #'iterator
                  #:with expression #'(in-lines)])
     (syntax-parse code #:literal-sets (cruft)
+                       #:literals (honu-equal)
       [(_ (~seq init:id honu-equal init-expression:honu-expression (~optional honu-comma)) ...
           (~seq sequence:sequence-expression (~optional honu-comma)) ...
           honu-do body:honu-expression . rest)
diff --git a/collects/honu/core/private/literals.rkt b/collects/honu/core/private/literals.rkt
index 1c5219bf1a..cf96c28ce4 100644
--- a/collects/honu/core/private/literals.rkt
+++ b/collects/honu/core/private/literals.rkt
@@ -20,7 +20,7 @@
                 honu-&= honu-^= honu-\|= honu-<<= honu->>= honu->>>=
                 honu->> honu-<< honu->>> 
                 honu-!=
-                honu-equal
+                ;; honu-equal
                 honu-<-
                 honu-literal
                 honu-then
@@ -43,4 +43,4 @@
 
 (define-literal-set cruft (#%parens #%brackets #%braces
                            %racket
-                           semicolon colon honu-comma honu-equal))
+                           semicolon colon honu-comma))
diff --git a/collects/honu/core/private/operator.rkt b/collects/honu/core/private/operator.rkt
index bc02bfdbe6..1289b037df 100644
--- a/collects/honu/core/private/operator.rkt
+++ b/collects/honu/core/private/operator.rkt
@@ -51,8 +51,8 @@
                   [right right])
       #'(%racket (right left)))))
 
-(provide honu-assignment)
-(define-honu-operator/syntax honu-assignment 0.0001 'left
+(provide honu-equal)
+(define-honu-operator/syntax honu-equal 0.0001 'left
   (lambda (left right)
     (with-syntax ([left left]
                   [right right])
diff --git a/collects/honu/core/private/parse2.rkt b/collects/honu/core/private/parse2.rkt
index 33bef090ea..03e326ed64 100644
--- a/collects/honu/core/private/parse2.rkt
+++ b/collects/honu/core/private/parse2.rkt
@@ -384,7 +384,8 @@
                      ;; [1, 2, 3] -> (list 1 2 3)
                      [(#%brackets stuff ...)
                       (define-literal-set wheres (honu-where))
-                      (syntax-parse #'(stuff ...) #:literal-sets  (cruft wheres)
+                      (define-literal-set equals (honu-equal))
+                      (syntax-parse #'(stuff ...) #:literal-sets  (cruft wheres equals)
                         [(work:honu-expression 
                           colon (~seq variable:id honu-equal list:honu-expression (~optional honu-comma)) ...
                           (~seq honu-where where:honu-expression (~optional honu-comma)) ...)