~ chicken-core (chicken-5) 579a9d1e689d1c3a29335d4052a86a588d9502ea
commit 579a9d1e689d1c3a29335d4052a86a588d9502ea
Author: Kooda <kooda@upyum.com>
AuthorDate: Sat Oct 21 13:25:33 2017 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Fri Oct 27 21:37:58 2017 +0200
Remove the date from the header comment of generated C files.
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/c-backend.scm b/c-backend.scm
index 4262cc51..d7b8844b 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -554,40 +554,29 @@
(expr node temps) )
(define (header)
- (define (pad0 n)
- (if (< n 10)
- (string-append "0" (number->string n))
- n) )
- (let* ((tm (##sys#decode-seconds (current-seconds) #f))
- (min (vector-ref tm 1))
- (hour (vector-ref tm 2))
- (mday (vector-ref tm 3))
- (mon (vector-ref tm 4))
- (year (vector-ref tm 5)) )
- (gen "/* Generated from " source-file " by the CHICKEN compiler" #t
- " http://www.call-cc.org" #t
- " " (+ 1900 year) #\- (pad0 (add1 mon)) #\- (pad0 mday) #\space (pad0 hour) #\: (pad0 min) #t
- (string-intersperse
- (map (cut string-append " " <> "\n")
- (string-split (chicken-version #t) "\n") )
- "")
- " command line: ")
- (gen-list user-supplied-options)
- (unless (not unit-name)
- (gen #t " unit: " unit-name))
- (unless (null? used-units)
- (gen #t " uses: ")
- (gen-list used-units))
- (gen #t "*/")
- (gen #t "#include \"" target-include-file "\"")
- (when external-protos-first
- (generate-foreign-callback-stub-prototypes foreign-callback-stubs) )
- (when (pair? foreign-declarations)
- (gen #t)
- (for-each (lambda (decl) (gen #t decl)) foreign-declarations) )
- (unless external-protos-first
- (generate-foreign-callback-stub-prototypes foreign-callback-stubs) ) ) )
-
+ (gen "/* Generated from " source-file " by the CHICKEN compiler" #t
+ " http://www.call-cc.org" #t
+ (string-intersperse
+ (map (cut string-append " " <> "\n")
+ (string-split (chicken-version #t) "\n") )
+ "")
+ " command line: ")
+ (gen-list user-supplied-options)
+ (unless (not unit-name)
+ (gen #t " unit: " unit-name))
+ (unless (null? used-units)
+ (gen #t " uses: ")
+ (gen-list used-units))
+ (gen #t "*/")
+ (gen #t "#include \"" target-include-file "\"")
+ (when external-protos-first
+ (generate-foreign-callback-stub-prototypes foreign-callback-stubs) )
+ (when (pair? foreign-declarations)
+ (gen #t)
+ (for-each (lambda (decl) (gen #t decl)) foreign-declarations) )
+ (unless external-protos-first
+ (generate-foreign-callback-stub-prototypes foreign-callback-stubs) ) )
+
(define (trailer)
(gen #t #t "/*" #t
(uncommentify
Trap