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

focusing on the make system and trying to figure out how to introduce caching into it.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 14:42:57 -04:00
parent f39b192fee
commit a2f3761add
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
js-assembler/package.rkt
View File

@ -253,8 +253,7 @@ MACHINE.modules[~s] =
(define (on-visit-src src ast stmts) (define (on-visit-src src ast stmts)
;; Record the use of resources on source module visitation... ;; Record the use of resources on source module visitation...
(set! resources (set-union resources (set! resources (set-union resources (list->set (source-resources src))))
(list->set (source-resources src))))
(fprintf op "\n// ** Visiting ~a\n" (source-name src)) (fprintf op "\n// ** Visiting ~a\n" (source-name src))
(define start-time (current-inexact-milliseconds)) (define start-time (current-inexact-milliseconds))

9
make/make.rkt
View File

@ -23,9 +23,10 @@
[get-module-bytecode ((U String Path Input-Port) -> Bytes)]) [get-module-bytecode ((U String Path Input-Port) -> Bytes)])
(provide make (provide make)
current-module-source-compiling-hook
get-ast-and-statements)
(: current-module-source-compiling-hook (: current-module-source-compiling-hook
@ -128,7 +129,7 @@
(: follow-dependencies ((Listof Source) -> Void)) (: follow-dependencies ((Listof Source) -> Void))
(define (follow-dependencies sources) (define (follow-dependencies sources)
(define visited ((inst make-hash Any Boolean))) (define visited ((inst make-hash Source Boolean)))
(: collect-new-dependencies (: collect-new-dependencies
(Source (U False Expression) -> (Listof Source))) (Source (U False Expression) -> (Listof Source)))