~ chicken-core (chicken-5) 0f55d5a15763a1d0dc0fe1900f6a2686454729c4

commit 0f55d5a15763a1d0dc0fe1900f6a2686454729c4
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jul 10 12:30:21 2015 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jul 10 12:30:21 2015 +1200

    Remove unused ##sys#abort-load procedure

diff --git a/eval.scm b/eval.scm
index aadb0136..b5bb76da 100644
--- a/eval.scm
+++ b/eval.scm
@@ -937,7 +937,6 @@
 
 (define load-verbose (make-parameter (##sys#fudge 13)))
 
-(define (##sys#abort-load) #f)
 (define ##sys#current-source-filename #f)
 (define ##sys#current-load-path "")
 (define ##sys#dload-disabled #f)
@@ -1016,8 +1015,7 @@
 			 (##sys#current-load-path
 			  (and fname
 			       (let ((i (has-sep? fname)))
-				 (if i (##sys#substring fname 0 (fx+ i 1)) ""))))
-			 (##sys#abort-load (lambda () (abrt #f))))
+				 (if i (##sys#substring fname 0 (fx+ i 1)) "")))))
 	       (let ((in (if fname (open-input-file fname) input)))
 		 (##sys#dynamic-wind
 		  (lambda () #f)