[honu] fix more references to :=
This commit is contained in:
parent
7e5a0285d3
commit
9e8a77c5c5
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user