home: hub: zuo

Info  •  Files  •  Log

Fix problem in call/prompt

--- a/tests/procedure.zuo

+++ b/tests/procedure.zuo

@@ -83,3 +83,5 @@

                             (continuation-prompt-available? 'tag)))

                     'tag)

        '(#t #t))

+(check-fail (call/prompt apply 'tag)

+            "apply: wrong number of arguments: [no arguments]\n")

\ No newline at end of file

--- a/zuo.c

+++ b/zuo.c

@@ -3330,6 +3330,7 @@

             if (tag->tag != zuo_symbol_tag)

               zuo_fail1w("call/prompt", "not a symbol", tag);

             args = z.o_null;

+            count = 0;

             Z.o_interp_meta_k = zuo_cons(zuo_cons(Z.o_interp_k, tag),

                                          Z.o_interp_meta_k);

             Z.o_interp_k = z.o_done_k;