Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

don't allow redefining reader labels

Browse source 
Fixes issue #337.
This commit is contained in:
Alex Shinn 2016-05-16 22:56:51 +09:00
parent 8a8705693e
commit 1e76e39b9a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/srfi/38.scm
View file

@ -320,7 +320,10 @@
((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
(let* ((str (read-label '()))
(n (string->number str)))
(if (not n) (read-error "read error: invalid reference" str))
(if (not n)
(read-error "read error: invalid reference" str))
(if (assv n shared)
(read-error "read error: duplicate label" str))
(cond
((eqv? #\= (peek-char in))
(read-char in)