diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-08-20 05:12:43 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-08-20 05:12:43 +0000 |
commit | e8566222c2b556f849b1fdb451f2b8229cec27c7 (patch) | |
tree | 5ee8319e3b9bb6303ccf8ce17de97c4948713da3 | |
parent | a343458dbe0fa49fe2a03844b1b4c9fd3f11b681 (diff) | |
download | guile-e8566222c2b556f849b1fdb451f2b8229cec27c7.tar.gz |
Remove support for the #/ path list syntax entirely.
* 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 '#/'.
-rw-r--r-- | ice-9/boot-9.scm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 63ba332f4..3118966a8 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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))) |