scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed function names

This commit is contained in:
jottbee 2005-03-09 15:24:10 +00:00
parent 554749cd20
commit e9b3d3d6ec
2 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
make.scm
View File

@ -72,28 +72,28 @@
(submatch (: ,right eos)))))))
target-rx))
(define (file-rx->rc target prereqs thunk)
(define (file-rx target prereqs thunk)
(rx->func string=? target prereqs file thunk))
(define (once-rx->rc target prereqs thunk)
(define (once-rx target prereqs thunk)
(rx->func string=? target prereqs once thunk))
(define (all-rx->rc target prereqs thunk)
(define (all-rx target prereqs thunk)
(rx->func string=? target prereqs all thunk))
(define (always-rx->rc target prereqs thunk)
(define (always-rx target prereqs thunk)
(rx->func string=? target prereqs always thunk))
(define (perms-rx->rc target prereqs thunk)
(define (perms-rx target prereqs thunk)
(rx->func string=? target prereqs perms thunk))
(define (md5-rx->rc target prereqs thunk)
(define (md5-rx target prereqs thunk)
(rx->func string=? target prereqs md5 thunk))
(define (md5-perms-rx->rc target prereqs thunk)
(define (md5-perms-rx target prereqs thunk)
(rx->func string=? target prereqs md5-perms thunk))
(define (paranoid-rx->rc target prereqs thunk)
(define (paranoid-rx target prereqs thunk)
(rx->func string=? target prereqs paranoid thunk))
(define (rx->func pred target-rx prereqs out-of-date?-func thunk)
@ -101,28 +101,28 @@
(common->func maybe-target target-rx pred
out-of-date?-func target-rx prereqs thunk)))
(define (file-%->rc target prereqs thunk)
(define (file-% target prereqs thunk)
(%->func string=? target prereqs file thunk))
(define (once-%->rc target prereqs thunk)
(define (once-% target prereqs thunk)
(%->func string=? target prereqs once thunk))
(define (all-%->rc target prereqs thunk)
(define (all-% target prereqs thunk)
(%->func string=? target prereqs all thunk))
(define (always-%->rc target prereqs thunk)
(define (always-% target prereqs thunk)
(%->func string=? target prereqs always thunk))
(define (perms-%->rc target prereqs thunk)
(define (perms-% target prereqs thunk)
(%->func string=? target prereqs perms thunk))
(define (md5-%->rc target prereqs thunk)
(define (md5-% target prereqs thunk)
(%->func string=? target prereqs md5 thunk))
(define (md5-perms-%->rc target prereqs thunk)
(define (md5-perms-% target prereqs thunk)
(%->func string=? target prereqs md5-perms thunk))
(define (paranoid-%->rc target prereqs thunk)
(define (paranoid-% target prereqs thunk)
(%->func string=? target prereqs paranoid thunk))
(define (%->func pred target-pattern prereqs out-of-date?-func thunk)

32
packages.scm
View File

@ -339,22 +339,22 @@
paranoid->rc
%-pattern->match
%-pattern->rx
file-rx->rc
once-rx->rc
all-rx->rc
always-rx->rc
perms-rx->rc
md5-rx->rc
md5-perms-rx->rc
paranoid-rx->rc
file-%->rc
once-%->rc
all-%->rc
always-%->rc
perms-%->rc
md5-%->rc
md5-perms-%->rc
paranoid-%->rc
file-rx
once-rx
all-rx
always-rx
perms-rx
md5-rx
md5-perms-rx
paranoid-rx
file-%
once-%
all-%
always-%
perms-%
md5-%
md5-perms-%
paranoid-%
%->func
rx->func
common->func))