From 1e38326879b739d1678f025341836f736c8d1d46 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 18 Jan 2024 04:10:49 +0100
Subject: Shared BLC working except aoc

---
 src/targets/unblc.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/targets/unblc.c')

diff --git a/src/targets/unblc.c b/src/targets/unblc.c
index 7e6c6e6..1b59f7f 100644
--- a/src/targets/unblc.c
+++ b/src/targets/unblc.c
@@ -30,9 +30,7 @@ static void fprint_unblc(struct term *term, struct bloc_parsed *bloc,
 	case REF:
 		if (term->u.ref.index + 1 >= bloc->length)
 			fatal("invalid ref index %ld\n", term->u.ref.index);
-		fprint_unblc(
-			bloc->entries[bloc->length - term->u.ref.index - 2],
-			bloc, file);
+		fprint_unblc(bloc->entries[term->u.ref.index], bloc, file);
 		break;
 	default:
 		fatal("invalid type %d\n", term->type);
-- 
cgit v1.2.3