From 387d6b9fee3efc3c7c52544d3071d0fe737b1857 Mon Sep 17 00:00:00 2001
From: David Johnson-Davies <david@technoblogy.com>
Date: Mon, 23 Sep 2019 21:49:48 +0100
Subject: [PATCH] Version 2.9a - 23rd September 2019

Fixed return from progn
---
 ulisp-arm.ino | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ulisp-arm.ino b/ulisp-arm.ino
index ff8291d..8331b0b 100644
--- a/ulisp-arm.ino
+++ b/ulisp-arm.ino
@@ -1,5 +1,5 @@
-/* uLisp ARM 2.9 - www.ulisp.com
-   David Johnson-Davies - www.technoblogy.com - 20th September 2019
+/* uLisp ARM 2.9a - www.ulisp.com
+   David Johnson-Davies - www.technoblogy.com - 23rd September 2019
 
    Licensed under the MIT license: https://opensource.org/licenses/MIT
 */
@@ -1787,7 +1787,8 @@ object *tf_progn (object *args, object *env) {
   if (args == NULL) return nil;
   object *more = cdr(args);
   while (more != NULL) {
-    eval(car(args), env);
+    object *result = eval(car(args),env);
+    if (tstflag(RETURNFLAG)) return result;
     args = more;
     more = cdr(args);
   }