~ chicken-core (chicken-5) a0f0aec91f5bf5c3019df04456be1969cf46424e

commit a0f0aec91f5bf5c3019df04456be1969cf46424e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 30 22:45:34 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 30 22:45:34 2010 +0200

    trivial changes and cleanup

diff --git a/chicken-install.scm b/chicken-install.scm
index b14ca2eb..6150ef27 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -155,7 +155,7 @@
     (cond ((assoc name *aliases*) => 
 	   (lambda (a)
 	     (let ((new (cdr a)))
-	       (print "resolving alias " name " to: " new)
+	       (print "resolving alias `" name "' to: " new)
 	       (resolve-location new))))
 	  (else name)))
 
diff --git a/manual/Unit lolevel b/manual/Unit lolevel
index 79604580..172d166e 100644
--- a/manual/Unit lolevel	
+++ b/manual/Unit lolevel	
@@ -315,7 +315,7 @@ A ''locative'' is an object that points to an element of a containing object,
 much like a ''pointer'' in low-level, imperative programming languages like ''C''. The element can
 be accessed and changed indirectly, by performing access or change operations
 on the locative. The container object can be computed by calling the
-{{location->object}} procedure.
+{{locative->object}} procedure.
 
 Locatives may be passed to foreign procedures that expect pointer arguments.
 The effect of creating locatives for evicted data (see {{object-evict}}) is undefined.
diff --git a/runtime.c b/runtime.c
index cc43cff7..366a5dc8 100644
--- a/runtime.c
+++ b/runtime.c
@@ -8283,7 +8283,6 @@ C_regparm C_word C_fcall C_a_i_make_locative(C_word **a, int c, C_word type, C_w
   }
 
   locative_table[ locative_table_count++ ] = (C_word)loc;
-
   return (C_word)loc;
 }
 
diff --git a/tweaks.scm b/tweaks.scm
index 7a44082a..43041395 100644
--- a/tweaks.scm
+++ b/tweaks.scm
@@ -30,16 +30,13 @@
 
 
 (cond-expand
- (debugbuild
-  (declare
-    (fixnum)
-    (disable-interrupts) ))
- (else
-  (declare
-    (disable-interrupts)
-    (no-bound-checks)
-    (no-procedure-checks)
-    (no-argc-checks))))
+  ((not debugbuild)
+   (declare
+     (disable-interrupts)
+     (no-bound-checks)
+     (no-procedure-checks)
+     (no-argc-checks)))
+  (else))
 
 (define-inline (node? x) (##sys#structure? x 'node))
 (define-inline (make-node c p s) (##sys#make-structure 'node c p s))
diff --git a/types.db b/types.db
index b1a5cb19..c831ee6a 100644
--- a/types.db
+++ b/types.db
@@ -447,7 +447,7 @@
 (identity (procedure identity (*) *))
 (intersperse (procedure intersperse (list *) list))
 (join (procedure join (list list) list))
-(left-section (procedure left-section (procedure #!rest) procedure))
+(left-section deprecated)
 (list->queue (procedure list->queue (list) (struct queue)))
 (list-of? (procedure list-of? ((procedure (*) *)) (procedure (list) boolean)))
 (make-queue (procedure make-queue () (struct queue)))
@@ -468,7 +468,7 @@
 (queue-remove! (procedure queue-remove! ((struct queue)) *))
 (queue? (procedure queue? (*) boolean))
 (rassoc (procedure rassoc (* list #!optional (procedure (* *) *)) *))
-(right-section (procedure right-section (procedure #!rest) procedure))
+(right-section deprecated)
 (reverse-string-append (procedure reverse-string-append (list) string))
 (shuffle (procedure shuffle (list (procedure (fixnum) fixnum)) list))
 (sort (procedure sort ((or list vector) (procedure (* *) *)) (or list vector)))