mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

deprecate `scheme-file-suffix'

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (scheme-file-suffix): Deprecate.
This commit is contained in:
Andy Wingo 2010-06-11 11:40:31 +02:00
parent b38507c1af
commit 0bbe199d4d
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/boot-9.scm
View file

@ -995,10 +995,6 @@ If there is no handler at all, Guile prints an error and then exits."
;;; {Load Paths} ;;; {Load Paths}
;;; ;;;
;;; Here for backward compatability
;;
(define scheme-file-suffix (lambda () ".scm"))
(define (in-vicinity vicinity file) (define (in-vicinity vicinity file)
(let ((tail (let ((len (string-length vicinity))) (let ((tail (let ((len (string-length vicinity)))
(if (zero? len) (if (zero? len)

9
module/ice-9/deprecated.scm
View file

@ -44,7 +44,8 @@
error-catching-repl error-catching-repl
scm-style-repl scm-style-repl
apply-to-args apply-to-args
has-suffix?) has-suffix?
scheme-file-suffix)
#:replace (module-ref-submodule module-define-submodule!)) #:replace (module-ref-submodule module-define-submodule!))
@ -408,3 +409,9 @@ better yet, use the repl from `(system repl repl)'.")
(issue-deprecation-warning (issue-deprecation-warning
"`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).") "`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).")
(string-suffix? suffix str)) (string-suffix? suffix str))
(define scheme-file-suffix
(lambda ()
(issue-deprecation-warning
"`scheme-file-suffix' is deprecated. Use `%load-extensions' instead.")
".scm"))