diff --git a/minproto.leg b/minproto.leg index f1c8fdf..6476d74 100644 --- a/minproto.leg +++ b/minproto.leg @@ -1,6 +1,6 @@ # minproto.leg -- minimal prototype langauge for semantic experiments # -# last edited: 2024-05-29 10:02:58 by piumarta on zora +# last edited: 2024-05-29 11:05:04 by piumarta on zora %{ ; @@ -3550,9 +3550,8 @@ oop prim_Object_push(oop func, oop self, oop args, oop env) { assert(is(Object, args)); int argc = _get(args, Object,isize); assert(is(Object, self)); oop *indexed = _get(args, Object,indexed); - oop result = nil; - for (int i = 0; i < argc; ++i) result = Object_push(self, indexed[i]); - return result; + for (int i = 0; i < argc; ++i) Object_push(self, indexed[i]); + return self; } oop prim_Object_pop(oop func, oop self, oop args, oop env)