Welcome to the CHICKEN Scheme pasting service

make-fileless-targets added by mario-goulart on Thu Nov 1 18:50:31 2012

Index: make.scm
===================================================================
--- make.scm    (revision 27221)
+++ make.scm    (working copy)
@@ -47,13 +47,15 @@
 
 (module make (make make/proc make-print-checking
                   make-print-dep-no-line
-                  make-print-reasons)
+                  make-print-reasons
+                  make-fileless-targets)
  
 (import scheme chicken extras posix srfi-1)
 
 (define make-print-checking (make-parameter #f))
 (define make-print-dep-no-line (make-parameter #f))
 (define make-print-reasons (make-parameter #f))
+(define make-fileless-targets (make-parameter '()))
 
 (define (make:find-matching-line str spec)
   (let ((match? (lambda (s) (string=? s str))))
@@ -145,7 +147,7 @@
                                s
                                (if (make-print-reasons)
                                    (cond
-                                    ((not date)
+                                    ((and (not date) (not (member s (make-fileless-targets))))
                                      (string-append " because " s " does not exist"))
                                     ((string? reason)
                                      (string-append " because " reason " changed"))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 1 when given `'(1 2 3)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV