~ chicken-core (chicken-5) 233ecbbdaf83aeb3f55cc873f82dbabd50190c03


commit 233ecbbdaf83aeb3f55cc873f82dbabd50190c03
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Dec 14 07:32:27 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Dec 14 07:32:27 2009 +0100

    removed obsolete control-file declarations

diff --git a/compiler.scm b/compiler.scm
index 3251ed86..6ca7265c 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -1329,14 +1329,6 @@
 	  (if (every string? fds)
 	      (set! foreign-declarations (append foreign-declarations fds))
 	      (syntax-error 'declare "invalid declaration" spec) ) ) )
-       ((c-options)
-	(emit-control-file-item `(c-options ,@(strip (cdr spec)))) )
-       ((link-options)
-	(emit-control-file-item `(link-options ,@(strip (cdr spec))) ) )
-       ((post-process)
-	(emit-control-file-item
-	 (let ([file (pathname-strip-extension source-filename)])
-	   `(post-process ,@(map (cut string-substitute "\\$@" file <>) (cdr spec))) ) ) )
        ((block) (set! block-compilation #t))
        ((separate) (set! block-compilation #f))
        ((keep-shadowed-macros) (set! undefine-shadowed-macros #f))
Trap