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

Remove support for the #/ path list syntax entirely.

Browse source 
* boot-9.scm (read-path-list-notation,
read-path-list-notation-warning): Deleted.
Don't register read-path-list-notation-warning as a reader for
objects starting with '#/'.
This commit is contained in:
Jim Blandy 1999-08-20 05:12:43 +00:00
parent a343458dbe
commit e8566222c2
1 changed files with 0 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1042,49 +1042,6 @@
;;; Reader code for various "#c" forms.
;;;
;;; Parse the portion of a #/ list that comes after the first slash.
(define (read-path-list-notation slash port)
(letrec
;; Is C a delimiter?
((delimiter? (lambda (c) (or (eof-object? c)
(char-whitespace? c)
(string-index "()\";" c))))
;; Read and return one component of a path list.
(read-component
(lambda ()
(let loop ((reversed-chars '()))
(let ((c (peek-char port)))
(if (or (delimiter? c)
(char=? c #\/))
(string->symbol (list->string (reverse reversed-chars)))
(loop (cons (read-char port) reversed-chars))))))))
;; Read and return a path list.
(let loop ((reversed-path (list (read-component))))
(let ((c (peek-char port)))
(if (and (char? c) (char=? c #\/))
(begin
(read-char port)
(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)
@ -1105,10 +1062,6 @@
(for-each (lambda (char) (read-hash-extend char array-proc))
'(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))))
;; pushed to the beginning of the alist since it's used more than the
;; others at present.
(read-hash-extend #\/ read-path-list-notation-warning)
(define (read:array digit port)
(define chr0 (char->integer #\0))
(let ((rank (let readnum ((val (- (char->integer digit) chr0)))