mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* boot-9.scm (%read-sharp): Don't recognize the `#!' syntax here;

Browse source 
that's now taken care of in libguile, and in a way compatible with
SCSH (which this isn't).
This commit is contained in:
Jim Blandy 1996-10-25 08:35:36 +00:00
parent f9c68a472c
commit 0464a0956f
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -993,11 +993,6 @@
((#\c) (read:uniform-vector 0+i port)) ((#\c) (read:uniform-vector 0+i port))
((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9) ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
(read:array c port)) (read:array c port))
((#\!) (if (= 1 (port-line port)) ; (line-number))
(let skip () (if (eq? #\newline (peek-char port))
(read port #t read-sharp)
(begin (read-char port) (skip))))
(barf)))
(else (barf)))) (else (barf))))
(define (read:array digit port) (define (read:array digit port)