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

made sources transparent so I can do equality check on them.

Browse Source
This commit is contained in:
Danny Yoo 2011-05-26 18:40:02 -04:00
parent 3ae35df309
commit 6ad95cf504
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
make-structs.rkt
View File

@ -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

5
test-analyzer.rkt
View File

@ -4,6 +4,5 @@
;; For some reason, this is breaking. Why?
(make/dependencies
(list (build-path "make.rkt"))
debug-configuration)
(make (list (make-ModuleSource (build-path "make.rkt")))
debug-configuration)