From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 11:04:33 +0000 (+0000)
Subject: label-handling cases.
X-Git-Tag: 1-2~48
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=41733e7854ffe61e3117f3667d1dd690b882a599;p=cupl.git

label-handling cases.
---

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: