From c1e7e1f23a09b1c87577a51b79a6e410486b7bb1 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 16 May 2016 23:25:52 +0900
Subject: [PATCH] duplicate labels only forbidden for definition, not
 referencing

---
 lib/srfi/38.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index b8e79fa7..12291b28 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -322,10 +322,10 @@
                     (n (string->number 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))
+                 (if (assv n shared)
+                     (read-error "read error: duplicate label" str))
                  (read-char in)
                  (let* ((cell (list #f))
                         (thunk (lambda () (car cell))))