~ 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