[[project @ 2003-04-04 02:42:05 by unknown_lamer]
unknown_lamer**20030404024205
 Removed some files.
] hunk ./scripts/bobot-utils.scm 32
-    (if (and (not (null? load-path))
-	     (not
-	      (let ext-loop ((extensions %bot:load-extensions))
-		(if (not (null? extensions))
-		    (if (catch 'system-error
-			       (lambda ()
-				 (bot:log "path: " (car load-path)
-					  " file: " file
-					  " ext: " (car extensions)
-					  "\n")
-				 (load
-				  (string-append (car load-path)
-						 file
-						 (car extensions))))
-			       (lambda args
-				 #f ))
-			#t
-			(ext-loop (cdr extensions)))
-		    #f))))
-	(path-loop (cdr load-path))
-	(begin (bot:log "ERROR: File " file " Not Found!\n") #f))))
+    (cond ((not (null? load-path))
+	   (if (not
+		(let ext-loop ((extensions %bot:load-extensions))
+		  (if (not (null? extensions))
+		      (if (catch 'system-error
+				 (lambda ()
+				   (load
+				    (string-append (car load-path)
+						   file
+						   (car extensions))))
+				 (lambda args
+				   #f ))
+			  #t
+			  (ext-loop (cdr extensions))))))
+	       (path-loop (cdr load-path))))
+	  (else
+	   (begin (bot:log "ERROR: File " file " Not Found!\n") #f)))))