[honu] fix tests

This commit is contained in:
Jon Rafkind 2012-01-26 15:23:20 -07:00
parent 42d21a9918
commit 99daf6a9d1
2 changed files with 3 additions and 3 deletions

View File

@ -5,7 +5,7 @@ require "linq.rkt";
class Xml(data){ class Xml(data){
Descendants(name){ Descendants(name){
[new Xml(element): element <- find_descendants(data, name)] [new Xml(element): element = find_descendants(data, name)]
} }
Element(name){ Element(name){
@ -25,7 +25,7 @@ read_xml(){
} }
loadXml(file){ loadXml(file){
with_input_from_file(file){ withInputFromFile(file){
new Xml(read_xml()) new Xml(read_xml())
} }
} }

View File

@ -1,6 +1,6 @@
#lang racket/base #lang racket/base
(require honu/core/private/macro2 (require honu/core/private/syntax
honu/core/private/honu-typed-scheme honu/core/private/honu-typed-scheme
honu/core/private/literals honu/core/private/literals
racket/list racket/list