~ chicken-core (chicken-5) e7ebc8481fdaa990f865eb4b9d9973ea29809b5d

commit e7ebc8481fdaa990f865eb4b9d9973ea29809b5d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Dec 20 08:01:46 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Dec 20 08:01:46 2011 +0100

    trivial comment change

diff --git a/unboxing.scm b/unboxing.scm
index a6da5d3c..f9b25313 100644
--- a/unboxing.scm
+++ b/unboxing.scm
@@ -489,6 +489,9 @@
 	 (printf "  ~a\t~a~%" k v) )
        stats))))
 
+
+;;; unboxed rewrites
+
 (define-syntax define-unboxed-ops
   (syntax-rules ()
     ((_ (name atypes rtype alt) ...)
@@ -499,8 +502,6 @@
   (##sys#put! (symbolify name) '##compiler#unboxed-op (list alt atypes rtype)))
 
 
-;;; unboxed rewrites
-
 ;; arithmetic
 (define-unboxed-ops 
   (C_a_i_flonum_plus (flonum flonum) flonum "C_ub_i_flonum_plus")