From 48137dbe5457b7eb7fad8e35faa5eed5f8215c9e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 28 Feb 1998 19:39:37 -0800
Subject: [PATCH] type handling in assignments fixed
Rev: src/las.c:1.54
---
src/las.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/las.c b/src/las.c
index 2d98cc82b8..2fcbbb9f26 100644
--- a/src/las.c
+++ b/src/las.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: las.c,v 1.53 1998/02/27 08:39:20 hubbe Exp $");
+RCSID("$Id: las.c,v 1.54 1998/03/01 03:39:37 hubbe Exp $");
#include "language.h"
#include "interpret.h"
@@ -1401,7 +1401,7 @@ void fix_type_field(node *n)
if(CAR(n) && CDR(n) &&
!match_types(CDR(n)->type,CAR(n)->type))
my_yyerror("Bad type in assignment.");
- copy_shared_string(n->type, CDR(n)->type);
+ copy_shared_string(n->type, CAR(n)->type);
break;
case F_INDEX:
--
GitLab