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

Version 2.9a - 23rd September 2019 

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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats 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 /* uLisp ARM 2.9a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 20th September 2019 David Johnson-Davies - www.technoblogy.com - 23rd September 2019
Licensed under the MIT license: https://opensource.org/licenses/MIT 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; if (args == NULL) return nil;
object *more = cdr(args); object *more = cdr(args);
while (more != NULL) { while (more != NULL) {
eval(car(args), env); object *result = eval(car(args),env);
if (tstflag(RETURNFLAG)) return result;
args = more; args = more;
more = cdr(args); more = cdr(args);
} }