~ chicken-core (chicken-5) 3993d9c96b301c02657f187bda14a48b76a876ac

commit 3993d9c96b301c02657f187bda14a48b76a876ac
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Aug 19 21:26:14 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Aug 19 21:26:14 2011 +0200

    trivial changes

diff --git a/extras.scm b/extras.scm
index 1d81e876..151ca95a 100644
--- a/extras.scm
+++ b/extras.scm
@@ -531,7 +531,7 @@
       (define (pp-do expr col extra)
 	(pp-general expr col extra #f pp-expr-list pp-expr-list pp-expr))
 
-					; define formatting style (change these to suit your style)
+      ;; define formatting style (change these to suit your style)
 
       (define indent-general 2)
 
diff --git a/lolevel.scm b/lolevel.scm
index d005c70d..b360f5f6 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -565,7 +565,9 @@ EOF
 		 (do ([i (if (##core#inline "C_specialp" x) 1 0) (fx+ i 1)])
 		     [(fx>= i n)]
 		   (release (##sys#slot x i))) )
-	       (free (##sys#address->pointer (##core#inline_allocate ("C_block_address" 4) x))) ) ] ) ) ) )
+	       (free 
+		(##sys#address->pointer
+		 (##core#inline_allocate ("C_block_address" 4) x))) ) ] ) ) ) )
 
 (define (object-size x)
   (let ([tab (make-hash-table eq?)])
@@ -616,7 +618,7 @@ EOF
   (##sys#check-become-alist alst 'object-become!)
   (##sys#become! alst) )
 
-(define (mutate-procedure old proc)
+(define (mutate-procedure old proc)	;XXX should be named "mutate-procedure!"
   (##sys#check-closure old 'mutate-procedure)
   (##sys#check-closure proc 'mutate-procedure)
   (let* ([n (##sys#size old)]