~ chicken-core (chicken-5) 9d6fbcbe97948a0d304f3aeef834489c465c7a79

commit 9d6fbcbe97948a0d304f3aeef834489c465c7a79
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jan 28 11:07:58 2013 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Feb 1 19:28:24 2013 +0100

    allow -ot/-oi as aliases for -emit-type-file/-emit-inline-file, deprecated -n
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/NEWS b/NEWS
index 22695838..ad77c580 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,10 @@
+4.8.2
+
+- Tools
+  - csc: added "-oi"/"-ot" options as alternatives to "-emit-inline-file"
+    and "-emit-type-file", respectively; "-n" has been deprecated.
+
+
 4.8.1
 
 - Security fixes
diff --git a/csc.scm b/csc.scm
index 42176736..a54c14c9 100644
--- a/csc.scm
+++ b/csc.scm
@@ -173,7 +173,7 @@
     (-x "-explicit-use")
     (-u "-unsafe")
     (-j "-emit-import-library")
-    (-n "-emit-inline-file")
+    (-n "-emit-inline-file")		; DEPRECATED
     (-b "-block") ) )
 
 (define short-options
@@ -388,10 +388,10 @@ Usage: #{csc} FILENAME | OPTION ...
     -inline-limit LIMIT            set inlining threshold
     -inline-global                 enable cross-module inlining
     -specialize                    perform type-based specialization of primitive calls
-    -n -emit-inline-file FILENAME  generate file with globally inlinable
+    -oi -emit-inline-file FILENAME  generate file with globally inlinable
                                     procedures (implies -inline -local)
     -consult-inline-file FILENAME  explicitly load inline file
-    -emit-type-file FILENAME       write type-declaration information into file
+    -ot  -emit-type-file FILENAME  write type-declaration information into file
     -no-argc-checks                disable argument count checks
     -no-bound-checks               disable bound variable checks
     -no-procedure-checks           disable procedure call checks
@@ -728,6 +728,14 @@ EOF
 		  (set! link-options (append link-options (list (string-append "-Wl,-R" rpath)))) )
 	  	(set! rest (cdr rest)) ]
 	       [(-host) #f]
+	       ((-oi) 
+		(check s rest)
+		(t-options "-emit-inline-file" (car rest))
+		(set! rest (cdr rest)))
+	       ((-ot) 
+		(check s rest)
+		(t-options "-emit-type-file" (car rest))
+		(set! rest (cdr rest)))
 	       [(-) 
 		(set! scheme-files (append scheme-files '("-")))
 		(unless target-filename