From 6ad95cf504d0240f410b9a40c1cb49ddbc51f27d Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Thu, 26 May 2011 18:40:02 -0400 Subject: [PATCH] made sources transparent so I can do equality check on them. --- make-structs.rkt | 12 ++++++++---- test-analyzer.rkt | 5 ++--- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/make-structs.rkt b/make-structs.rkt index cf16fff..c81ece7 100644 --- a/make-structs.rkt +++ b/make-structs.rkt @@ -22,10 +22,14 @@ ModuleSource SexpSource)) -(define-struct: StatementsSource ([stmts : (Listof Statement)])) -(define-struct: MainModuleSource ([source : Source])) -(define-struct: ModuleSource ([path : Path])) -(define-struct: SexpSource ([sexp : Any])) +(define-struct: StatementsSource ([stmts : (Listof Statement)]) + #:transparent) +(define-struct: MainModuleSource ([source : Source]) + #:transparent) +(define-struct: ModuleSource ([path : Path]) + #:transparent) +(define-struct: SexpSource ([sexp : Any]) + #:transparent) (define-struct: Configuration diff --git a/test-analyzer.rkt b/test-analyzer.rkt index 029b351..77496dd 100644 --- a/test-analyzer.rkt +++ b/test-analyzer.rkt @@ -4,6 +4,5 @@ ;; For some reason, this is breaking. Why? -(make/dependencies - (list (build-path "make.rkt")) - debug-configuration) \ No newline at end of file +(make (list (make-ModuleSource (build-path "make.rkt"))) + debug-configuration) \ No newline at end of file