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

[honu] replace := with =

Browse Source
This commit is contained in:
Jon Rafkind 2012-01-26 12:14:13 -07:00
parent d6be1fbdee
commit 7e5a0285d3
5 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/honu/core/main.rkt
View File

@ -51,7 +51,7 @@
[honu->= >=] [honu->= >=]
[honu-<= <=] [honu-<= <=]
;; [honu-equal =] ;; [honu-equal =]
[honu-assignment :=] ;; [honu-assignment :=]
[honu-map map] [honu-map map]
[honu-flow \|] [honu-flow \|]
[honu-dot %dot] [honu-dot %dot]
@ -64,7 +64,7 @@
[honu-structure structure] [honu-structure structure]
[honu-structure struct] [honu-structure struct]
[honu-syntax syntax] [honu-syntax syntax]
[literal:honu-equal =] [honu-equal =]
[literal:honu-prefix prefix] [literal:honu-prefix prefix]
[literal:honu-then then] [literal:honu-then then]
[literal:colon %colon] [literal:colon %colon]

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

@ -12,7 +12,6 @@
honu-in honu-in
honu-in-lines honu-in-lines
honu-prefix honu-prefix
honu-equal
semicolon semicolon
honu-comma honu-comma
define-literal define-literal
@ -370,6 +369,7 @@
#:with variable #'iterator #:with variable #'iterator
#:with expression #'(in-lines)]) #:with expression #'(in-lines)])
(syntax-parse code #:literal-sets (cruft) (syntax-parse code #:literal-sets (cruft)
#:literals (honu-equal)
[(_ (~seq init:id honu-equal init-expression:honu-expression (~optional honu-comma)) ... [(_ (~seq init:id honu-equal init-expression:honu-expression (~optional honu-comma)) ...
(~seq sequence:sequence-expression (~optional honu-comma)) ... (~seq sequence:sequence-expression (~optional honu-comma)) ...
honu-do body:honu-expression . rest) honu-do body:honu-expression . rest)

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

@ -20,7 +20,7 @@
honu-&= honu-^= honu-\|= honu-<<= honu->>= honu->>>= honu-&= honu-^= honu-\|= honu-<<= honu->>= honu->>>=
honu->> honu-<< honu->>> honu->> honu-<< honu->>>
honu-!= honu-!=
honu-equal ;; honu-equal
honu-<- honu-<-
honu-literal honu-literal
honu-then honu-then
@ -43,4 +43,4 @@
(define-literal-set cruft (#%parens #%brackets #%braces (define-literal-set cruft (#%parens #%brackets #%braces
%racket %racket
semicolon colon honu-comma honu-equal)) semicolon colon honu-comma))

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

@ -51,8 +51,8 @@
[right right]) [right right])
#'(%racket (right left))))) #'(%racket (right left)))))
(provide honu-assignment) (provide honu-equal)
(define-honu-operator/syntax honu-assignment 0.0001 'left (define-honu-operator/syntax honu-equal 0.0001 'left
(lambda (left right) (lambda (left right)
(with-syntax ([left left] (with-syntax ([left left]
[right right]) [right right])

3
collects/honu/core/private/parse2.rkt
View File

@ -384,7 +384,8 @@
;; [1, 2, 3] -> (list 1 2 3) ;; [1, 2, 3] -> (list 1 2 3)
[(#%brackets stuff ...) [(#%brackets stuff ...)
(define-literal-set wheres (honu-where)) (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 [(work:honu-expression
colon (~seq variable:id honu-equal list:honu-expression (~optional honu-comma)) ... colon (~seq variable:id honu-equal list:honu-expression (~optional honu-comma)) ...
(~seq honu-where where:honu-expression (~optional honu-comma)) ...) (~seq honu-where where:honu-expression (~optional honu-comma)) ...)