From 82d5bbc0bc0a99136fed9471868d5358c742128c Mon Sep 17 00:00:00 2001
From: Quentin Carbonneaux <quentin.carbonneaux@yale.edu>
Date: Tue, 23 Feb 2016 10:54:56 -0500
Subject: patch return, might not work

---
 lisc/parse.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lisc/parse.c')

diff --git a/lisc/parse.c b/lisc/parse.c
index 1f2e557..51917a0 100644
--- a/lisc/parse.c
+++ b/lisc/parse.c
@@ -507,9 +507,10 @@ parseline(PState ps)
 	case TRet:
 		curb->jmp.type = (int[]){
 			JRetw, JRetl,
+			JRets, JRetd,
 			JRetc, JRet0
 		}[rcls];
-		if (rcls < 3) {
+		if (rcls < 5) {
 			r = parseref();
 			if (req(r, R))
 				err("return value expected");
@@ -632,7 +633,7 @@ parsefn()
 	if (peek() != TGlo)
 		rcls = parsecls(&fn->retty);
 	else
-		rcls = 3;
+		rcls = 5;
 	if (next() != TGlo)
 		err("function name expected");
 	strcpy(fn->name, tokval.str);
-- 
cgit 1.4.1