~ chicken-core (chicken-5) f90f9b280e3721bcca3309166770d739c7f69453

commit f90f9b280e3721bcca3309166770d739c7f69453
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu May 26 06:25:04 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu May 26 06:25:04 2011 -0400

    different debug options for inline-info and implicit type decls

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 3cb5bc52..f81f9270 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -735,7 +735,7 @@
 		      (and-let* ((val (or (get db var 'value)
 					  (get db var 'local-value))))
 			(when (eq? val (first subs))
-			  (debugging 'i (sprintf "(: ~s ~s)" var rt))
+			  (debugging '|I| (sprintf "(: ~s ~s)" var rt))
 			  (mark-variable var '##compiler#declared-type)
 			  (mark-variable var '##compiler#type rt))))
 		    (when b
diff --git a/support.scm b/support.scm
index da613988..0b26d606 100644
--- a/support.scm
+++ b/support.scm
@@ -1606,6 +1606,7 @@ Available debugging options:
      t          show time needed for compilation
      b          show breakdown of time needed for each compiler pass
      o          show performed optimizations
+     i          show information about inlining
      r          show invocation parameters
      s          show program-size information and other statistics
      a          show node-matching during simplification
@@ -1615,7 +1616,7 @@ Available debugging options:
      c          print every expression before macro-expansion
      u          lists all unassigned global variable references
      d          lists all assigned global variables
-     i          show inferred type information for unexported globals
+     I          show inferred type information for unexported globals
      x          display information about experimental features
      D          when printing nodes, use node-tree output
      N          show the real-name mapping table