12 lines
228 B
HCL
12 lines
228 B
HCL
|
|
||
|
|
(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")
|