~ chicken-core (chicken-5) 6be036bf483b77b5600fcfa20d96f328aa0844b5

commit 6be036bf483b77b5600fcfa20d96f328aa0844b5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Dec 18 13:36:59 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Dec 18 13:36:59 2010 +0100

    removed some shit

diff --git a/batch-driver.scm b/batch-driver.scm
index 502c7cc6..1b2d4d64 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -604,7 +604,6 @@
 			      (let ((f inline-output-file))
 				(dribble "generating global inline file `~a' ..." f)
 				(emit-global-inline-file f db) ) )
-			    (check-for-unsafe-toplevel-procedure-calls node2 db)
 			    (begin-time)
 			    (set! node2 (perform-closure-conversion node2 db))
 			    (end-time "closure conversion")
diff --git a/compiler-namespace.scm b/compiler-namespace.scm
index 91c9b47e..c2eaf6bb 100644
--- a/compiler-namespace.scm
+++ b/compiler-namespace.scm
@@ -45,7 +45,6 @@
  canonicalize-begin-body
  canonicalize-expression
  check-and-open-input-file
- check-for-unsafe-toplevel-procedure-calls
  check-signature
  chop-extension
  chop-separator
diff --git a/compiler.scm b/compiler.scm
index 53747e53..f1b55ea5 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -974,7 +974,7 @@
 				(let ([x (car xs)]
 				      [r (cdr xs)] )
 				  (if (null? r)
-				      (list (walk x e se dest #f h))
+				      (list (walk x e se dest ldest h))
 				      (cons (walk x e se #f #f h) (fold r)) ) ) ) )
 			     '(##core#undefined) ) )
 
@@ -2088,39 +2088,6 @@
 
 ;;; Collect unsafe global procedure calls that are assigned:
 
-(define (check-for-unsafe-toplevel-procedure-calls node db)
-  (let ((procs '()))
-
-    (define (walk n)
-      (let ((subs (node-subexpressions n))
-	    (params (node-parameters n)) 
-	    (class (node-class n)) )
-	(case class
-	  ((##core#call)
-	   (let ((fun (first subs)))
-	     (when (memq (node-class fun) '(##core#variable ##core#global-ref))
-	       (let ((name (first (node-parameters fun))))
-		 (when (and ##sys#notices-enabled
-			    (get db name 'global)
-			    (get db name 'assigned)
-			    (variable-visible? name)
-			    (or no-global-procedure-checks
-				(variable-mark name '##compiler#always-bound-to-procedure))
-			    (not unsafe))
-		   (set! procs (lset-adjoin eq? procs name))))))
-	   (for-each walk subs))
-	  (else (for-each walk subs)))))
-
-    (when ##sys#notices-enabled
-      (walk node)
-      (when (pair? procs)
-	(##sys#notice
-	 "calls to the following non-intrinsic global procedures were declared to be unsafe even though they are externally visible:")
-	(newline (current-error-port))
-	(for-each (cute fprintf (current-error-port) "  ~S~%" <>) procs)
-	(flush-output (current-error-port))))))
-
-
 ;;; Convert closures to explicit data structures (effectively flattens function-binding structure):
 
 (define (perform-closure-conversion node db)
diff --git a/eval.scm b/eval.scm
index 1f7ceb46..687526f3 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1295,7 +1295,7 @@
     (do ((i 0 (fx+ i 1)))
 	((fx>= i n) (get-output-string out))
       (let ((c (string-ref str i)))
-	(if (and (not (char-alphabetic? c)) 

+	(if (and (not (char-alphabetic? c))
 		 (or (not (char-numeric? c)) (fx= i 0)))
 	    (let ((i (char->integer c)))
 	      (write-char #\_ out)