kyle/ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Version 2.9a - 23rd September 2019

Browse Source 
Fixed return from progn
This commit is contained in:
David Johnson-Davies
2019-09-23 21:49:48 +01:00
committed by GitHub
parent d4f0948576
commit 387d6b9fee
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ulisp-arm.ino
View File

@@ -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);
}