suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[honu] fix more references to :=

Browse Source
This commit is contained in:
Jon Rafkind 2012-01-26 12:18:39 -07:00
parent 7e5a0285d3
commit 9e8a77c5c5
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/honu/core/private/class.rkt
View File

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

6
collects/honu/core/private/honu2.rkt
View File

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