~ chicken-core (chicken-5) 7f97f04161548b16032bdc91e0a154717b300ae2
commit 7f97f04161548b16032bdc91e0a154717b300ae2
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jul 10 13:11:56 2015 +1200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jul 10 13:11:56 2015 +1200
Remove ##sys# prefix from lambda-info names of eval module procedures
As with 7daaa4baac1cb6aeefcd7d480c912c1cb44880a1.
diff --git a/eval.scm b/eval.scm
index b5bb76da..926a9e9d 100644
--- a/eval.scm
+++ b/eval.scm
@@ -864,7 +864,7 @@
(##sys#meta-macro-environment (##sys#macro-environment))
(##sys#macro-environment oldme)))))
-(define ##sys#eval-handler
+(define eval-handler
(make-parameter
(lambda (x #!optional env)
(let ((se (##sys#current-environment)))
@@ -879,7 +879,7 @@
(else
((##sys#compile-to-closure x '() se #f #f #f) '() ) ) ) ) )))
-(define eval-handler ##sys#eval-handler)
+(define ##sys#eval-handler eval-handler)
(define (eval x . env)
(apply (##sys#eval-handler)
@@ -1239,7 +1239,7 @@
(err? (##sys#error loc "cannot load extension" id))
(else #f) ) ) ) ) ) ) ) )
-(define (##sys#provide . ids)
+(define (provide . ids)
(for-each
(lambda (id)
(##sys#check-symbol id 'provide)
@@ -1247,21 +1247,18 @@
(set! ##sys#loaded-extensions (cons p ##sys#loaded-extensions)) ) )
ids) )
-(define provide ##sys#provide)
+(define ##sys#provide provide)
-(define (##sys#provided? id)
+(define (provided? id)
(and (member (##sys#canonicalize-extension-path id 'provided?) ##sys#loaded-extensions)
#t) )
-(define provided? ##sys#provided?)
+(define ##sys#provided? provided?)
-(define ##sys#require
- (lambda ids
- (for-each
- (cut ##sys#load-extension <> 'require)
- ids) ) )
+(define (require . ids)
+ (for-each (cut ##sys#load-extension <> 'require) ids))
-(define require ##sys#require)
+(define ##sys#require require)
(define ##sys#extension-information
(let ([with-input-from-file with-input-from-file]
Trap