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

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

@ -12,7 +12,6 @@
honu-in
honu-in-lines
honu-prefix
honu-equal
semicolon
honu-comma
define-literal
@ -370,6 +369,7 @@
#:with variable #'iterator
#:with expression #'(in-lines)])
(syntax-parse code #:literal-sets (cruft)
#:literals (honu-equal)
[(_ (~seq init:id honu-equal init-expression:honu-expression (~optional honu-comma)) ...
(~seq sequence:sequence-expression (~optional honu-comma)) ...
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-equal
;; honu-equal
honu-<-
honu-literal
honu-then
@ -43,4 +43,4 @@
(define-literal-set cruft (#%parens #%brackets #%braces
%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])
#'(%racket (right left)))))
(provide honu-assignment)
(define-honu-operator/syntax honu-assignment 0.0001 'left
(provide honu-equal)
(define-honu-operator/syntax honu-equal 0.0001 'left
(lambda (left right)
(with-syntax ([left left]
[right right])

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

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