|
@ -1,6 +1,6 @@ |
|
|
# minproto.leg -- minimal prototype langauge for semantic experiments |
|
|
# 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)); |
|
|
{ assert(is(Object, args)); |
|
|
int argc = _get(args, Object,isize); assert(is(Object, self)); |
|
|
int argc = _get(args, Object,isize); assert(is(Object, self)); |
|
|
oop *indexed = _get(args, Object,indexed); |
|
|
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) |
|
|
oop prim_Object_pop(oop func, oop self, oop args, oop env) |
|
|