From 9e8a77c5c562bcfdc7347a2d7fd78b0b5d6886c7 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Thu, 26 Jan 2012 12:18:39 -0700 Subject: [PATCH] [honu] fix more references to := --- collects/honu/core/private/class.rkt | 4 +++- collects/honu/core/private/honu2.rkt | 6 +++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/honu/core/private/class.rkt b/collects/honu/core/private/class.rkt index c7c2b35b8..4d6fe7fca 100644 --- 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 index 8e1cd4c3a..49bf5c193 100644 --- 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