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

[honu] fix for literal sets generated in a macro. replace . with -> for classes in the linq example

Browse Source
This commit is contained in:
Jon Rafkind 2011-12-01 12:37:52 -07:00
parent 8bb8ac5859
commit c9788909ea
2 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/honu/core/private/util.rkt
View File

@ -124,7 +124,13 @@
(let () (let ()
(define-literal-set set (literal)) (define-literal-set set (literal))
(define-syntax-class class (define-syntax-class class
#:literal-sets (set) ;; The problem is that 'literal' is unmarked but 'set' is marked.
;; BUG! shouldn't need ~literal here since we are using literal sets ;; The #:literal-sets option is kind of like a binding form: only identifiers
[pattern (~literal literal)]) ;; having the same marks are treated as literals.
;; The fix is
;; #:literal-sets ([set #:at literal])
;; which means treat any identifier whose name is listed in 'set' and whose lexical context matches 'literal' as a literal.
;; - Ryan
#:literal-sets ([set #:at literal])
[pattern literal])
(reify-syntax-class class))) (reify-syntax-class class)))

18
collects/tests/honu/linq.honu
View File

@ -36,16 +36,16 @@ starts_with(start, what){
var xml = loadXml("test.xml") var xml = loadXml("test.xml")
printf("xml ~a\n", xml) printf("xml ~a\n", xml)
printf("data: ~a\n", xml.getData()) printf("data: ~a\n", xml->getData())
printf("table1: ~a\n", xml.Descendants("Table1")) printf("table1: ~a\n", xml->Descendants("Table1"))
struct test{name, address} struct test{name, address}
var addresses = linq from add in xml.Descendants("Table1") var addresses = linq from add in xml->Descendants("Table1")
where true where true
orderby add.Element("familyName").Value() orderby add->Element("familyName")->Value()
select test(add.Element("familyName").Value(), select test(add->Element("familyName")->Value(),
add.Element("address").Value()) add->Element("address")->Value())
printf("addresses ~a\n", addresses) printf("addresses ~a\n", addresses)
@ -53,8 +53,8 @@ for add in addresses do {
printf("name ~a address ~a\n", add.name, add.address) printf("name ~a address ~a\n", add.name, add.address)
} }
for xs in linq from foo in xml.Descendants("Table1") for xs in linq from foo in xml->Descendants("Table1")
where starts_with("x", foo.Element("familyName").Value()) where starts_with("x", foo->Element("familyName")->Value())
select foo.Element("familyName").Value() do { select foo->Element("familyName")->Value() do {
printf("only x: ~a\n", xs) printf("only x: ~a\n", xs)
} }