From 708d6ca15fbdd77eb88ecd30a954c2a9229de3bd Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 15 Mar 2013 21:49:11 -0400
Subject: [PATCH] improved how $@ deals with empty lists and made it more
consistent.
---
pd/src/m_binbuf.c | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/pd/src/m_binbuf.c b/pd/src/m_binbuf.c
index 7a0767fb9..2e2edcc54 100644
--- a/pd/src/m_binbuf.c
+++ b/pd/src/m_binbuf.c
@@ -797,13 +797,21 @@ void binbuf_eval(t_binbuf *x, t_pd *target, int argc, t_atom *argv)
// error("message stack overflow");
// goto broken;
//}
- for (i=0; i<argc; i++)
- {
+ if (0<argc) {
+ for (i=0; i<argc; i++)
+ {
+ //fprintf(stderr, "@: %d %d\n", i, maxnargs);
+ *msp++=argv[i];
+ nargs++;
+ ac--;
+ }
+ } else {
//fprintf(stderr, "@: %d %d\n", i, maxnargs);
- *msp++=argv[i];
- nargs++;
- ac--;
- }
+ // we use this when $@ has no arguments (e.g. receives a bang) and convert it to 0 just like we do with $n that has no argument associated with it
+ SETFLOAT(msp, 0);
+ nargs++;
+ msp++;
+ }
msp--;
nargs--;
//fprintf(stderr,"x->b_n=%d ac=%d maxnargs=%d nargs=%d argc=%d\n", x->b_n, ac, maxnargs, nargs, argc);
--
GitLab