From 41733e7854ffe61e3117f3667d1dd690b882a599 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 11:04:33 +0000
Subject: [PATCH] label-handling cases.

---
 interpret.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interpret.c b/interpret.c
index 3656819..784af46 100644
--- a/interpret.c
+++ b/interpret.c
@@ -303,7 +303,7 @@ static void rewrite(node *tree)
 		break;
 
 	    case BLOCK:
-		np->car->car->syminf->target = np;
+		np->car->car->syminf->target = np->cdr;
 		break;
 
 	    default:
-- 
2.43.0