mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-27 23:40:24 +02:00
Code Activity

* boot-9.scm (read-path-list-notation-warning): New function:

Browse source 
print a warning the first time we see `#/' notation.
This commit is contained in:
Jim Blandy 1998-10-09 15:12:51 +00:00
parent 093d017925
commit bf7bc911dd
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
ice-9/boot-9.scm
View file

@ -1022,6 +1022,21 @@
(loop (cons (read-component) reversed-path)))
(reverse reversed-path))))))
(define (read-path-list-notation-warning slash port)
(if (not (getenv "GUILE_HUSH"))
(begin
(display "warning: obsolete `#/' list notation read from "
(current-error-port))
(display (port-filename port) (current-error-port))
(display "; see guile-core/NEWS." (current-error-port))
(newline (current-error-port))
(display " Set the GUILE_HUSH environment variable to disable this warning."
(current-error-port))
(newline (current-error-port))))
(read-hash-extend #\/ read-path-list-notation)
(read-path-list-notation slash port))
(read-hash-extend #\' (lambda (c port)
(read port)))
(read-hash-extend #\. (lambda (c port)
@ -1044,7 +1059,7 @@
;; pushed to the beginning of the alist since it's used more than the
;; others at present.
(read-hash-extend #\/ read-path-list-notation)
(read-hash-extend #\/ read-path-list-notation-warning)
(define (read:array digit port)
(define chr0 (char->integer #\0))