hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated multiple test files
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-01-03 00:45:34 +09:00
parent 309442e307
commit 758d5e953b
4 changed files with 57 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
t/va-01.hcl
View File

@ -1,28 +1,28 @@
(defun fn-y (t1 t2 va-ctx)
defun fn-y (t1 t2 va-ctx) {
| i |
(set i 0)
(while (< i (va-count va-ctx))
set i 0;
while (< i (va-count va-ctx)) {
(printf "fn-y=>Y-VA[%d]=>[%d]\n" i (va-get i va-ctx))
(set i (+ i 1))
)
)
};
};
(defun x(a b ... ::: x y z)
defun x(a b ... ::: x y z) {
|i|
(set x (va-count))
(set y (* a b))
(set z (+ a b))
(set i 0)
(while (< i (va-count))
set i 0;
while (< i (va-count)) {
(printf "VA[%d]=>[%d]\n" i (va-get i))
(set i (+ i 1))
)
(fn-y "hello" "world" (va-context))
};
fn-y "hello" "world" (va-context);
(return)
)
};
(set t (x 10 20 30))
(if (/= t 1) (printf "ERROR: t is not 1\n")