~ chicken-core (chicken-5) d1b7c9772f3b98459dad946132421816e8af1efe

commit d1b7c9772f3b98459dad946132421816e8af1efe
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Dec 23 15:02:04 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Dec 23 15:02:04 2009 +0100

    enable unboxing at opt.level >= 4

diff --git a/chicken.scm b/chicken.scm
index c1b35473..bab5e0b7 100644
--- a/chicken.scm
+++ b/chicken.scm
@@ -93,13 +93,14 @@
 		      (cons* 'optimize-leaf-routines 'inline 'local options) ) ]
 		   [(4)
 		    (set! options
-		      (cons* 'optimize-leaf-routines 'inline 'local 'unsafe options) ) ]
+		      (cons* 'optimize-leaf-routines 'inline 'local 'unboxing 'unsafe
+			     options) ) ]
 		   [else
 		    (when (>= level 5)
 		      (set! options 
 			(cons* 'disable-interrupts 'no-trace 'unsafe 'block
 			       'optimize-leaf-routines 'lambda-lift 'no-lambda-info
-			       'inline
+			       'inline 'unboxing
 			       options) ) ) ] )
 		 (loop (cdr rest)) ) ]
 	      [(eq? 'debug-level o)