[honu] fix more references to :=

takikawa · Jan 26, 2012 · 9e8a77c · 9e8a77c
1 parent 7e5a028
commit 9e8a77c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/collects/honu/core/private/class.rkt b/collects/honu/core/private/class.rkt
@@ -2,6 +2,7 @@
 
 (require "syntax.rkt"
          "literals.rkt"
+         (only-in "operator.rkt" honu-equal)
          (only-in "honu2.rkt" honu-declaration separate-ids)
          (for-syntax racket/base
                      "literals.rkt"
@@ -15,8 +16,9 @@
     (syntax-parse method #:literals (define)
       [(define (name args ...) body ...)
        #'(define/public (name args ...) body ...)]))
+  (define-literal-set equals (honu-equal))
   (define-splicing-syntax-class honu-class-thing
-                                #:literals (honu-equal)
+                                #:literal-sets (equals)
     [pattern method:honu-function
              #:with result (replace-with-public (local-binding method.result))]
     [pattern var:honu-declaration

diff --git a/collects/honu/core/private/honu2.rkt b/collects/honu/core/private/honu2.rkt
@@ -144,8 +144,8 @@
 
     ;; v.x = 5
     (define-syntax-class assign #:literal-sets (cruft)
-                                #:literals (honu-assignment)
-      [pattern (_ name:identifier honu-assignment argument:honu-expression . more)
+                                #:literals (honu-equal)
+      [pattern (_ name:identifier honu-equal argument:honu-expression . more)
                #:with result (with-syntax ([left left])
                                #'(%racket
                                    (let ([left* left])
@@ -157,7 +157,7 @@
 
     ;; v.x
     (define-syntax-class plain #:literal-sets (cruft)
-                               #:literals (honu-assignment)
+                               #:literals (honu-equal)
       [pattern (_ name:identifier . more)
        #:with result (with-syntax ([left left])
                        #'(%racket