enhanced the compiler to emit the right instruction for super

2022-02-19 17:26:26 +00:00
parent e482ce620f
commit f0b6ccdf42
4 changed files with 19 additions and 4 deletions
--- a/t/ret-01.hcl
+++ b/t/ret-01.hcl
@ -0,0 +1,11 @@
+
+(defun ff() (return 999))
+
+; test a normal block return
+(set a (ff))
+(if (/= a 999) (printf "ERROR: a must be 999\n"))
+(printf "OK %d\n" a)
+
+; return from top-level
+(return 10)
+(printf "ERROR: this line must not be printed\n")