From 0464a0956f0fd06d126ebce2b6637bfd00f738b5 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 25 Oct 1996 08:35:36 +0000 Subject: [PATCH] * boot-9.scm (%read-sharp): Don't recognize the `#!' syntax here; that's now taken care of in libguile, and in a way compatible with SCSH (which this isn't). --- ice-9/boot-9.scm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index df79f37e3..204ebe639 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -993,11 +993,6 @@ ((#\c) (read:uniform-vector 0+i port)) ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9) (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)))) (define (read:array digit port)