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 ModuleSource
SexpSource)) SexpSource))
(define-struct: StatementsSource ([stmts : (Listof Statement)])) (define-struct: StatementsSource ([stmts : (Listof Statement)])
(define-struct: MainModuleSource ([source : Source])) #:transparent)
(define-struct: ModuleSource ([path : Path])) (define-struct: MainModuleSource ([source : Source])
(define-struct: SexpSource ([sexp : Any])) #:transparent)
(define-struct: ModuleSource ([path : Path])
#:transparent)
(define-struct: SexpSource ([sexp : Any])
#:transparent)
(define-struct: Configuration (define-struct: Configuration

5
test-analyzer.rkt
View File

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