~ chicken-core (chicken-5) a075edf423df96cef955a3c4c36d1ffa2c2ceada

commit a075edf423df96cef955a3c4c36d1ffa2c2ceada
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 16 03:51:51 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 16 03:51:51 2011 -0400

    commented out type-check-generation to avoid warning; slightly better pname in argtype warning

diff --git a/scrutinizer.scm b/scrutinizer.scm
index e0100271..1a7ffc1d 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -472,7 +472,9 @@
     (define (call-result node args e loc params)
       (define (pname)
 	(sprintf "~ain procedure call to `~s', " 
-	  (if (and (pair? params) (pair? (cdr params)))
+	  (if (and (pair? params)
+		   (pair? (cdr params))
+		   (pair? (cadr params))) ; sourceinfo has line-number information?
 	      (let ((n (source-info->line (cadr params))))
 		(if n
 		    (sprintf "~a: " n)
@@ -1254,7 +1256,7 @@
 
 ;;; generate type-checks for formal variables
 
-(define (generate-type-checks! node loc vars inits)
+#;(define (generate-type-checks! node loc vars inits)
   ;; assumes type is validated
   (define (test t v)
     (case t