syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Simplify make.rkt slightly

This commit is contained in:
Tony Garnock-Jones 2017-09-29 13:13:57 +01:00
parent fa257a1d16
commit 4f52ebf108
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/syndicate/examples/actor/make.rkt
View File

@ -13,12 +13,11 @@
(when (not (string-suffix? name ".c"))
(define name.c (string-append name ".c"))
(on-start (printf "Tracking ~a, to see if we can use it to build ~a\n" name.c name))
(during (file-content name.c file->sha1 $hash) ;; nb. $hash, not _
(on-start
(if hash
(begin (printf "~a has changed hash to ~a, recompiling\n" name.c hash)
(system* (find-executable-path "cc") "-o" name name.c))
(printf "~a doesn't exist.\n" name.c)))))))
(on (asserted (file-content name.c file->sha1 $hash)) ;; nb. $hash, not _
(if hash
(begin (printf "~a has changed hash to ~a, recompiling\n" name.c hash)
(system* (find-executable-path "cc") "-o" name name.c))
(printf "~a doesn't exist.\n" name.c))))))
(spawn (on (asserted (file-content "." directory-list $files))
(for [(name-path (in-list files))]