steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean up

release
Slava Pestov 2007-12-12 00:32:43 -05:00
parent 0670633393
commit fbcd41be39
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
vm/quotations.c
View File

@ -191,12 +191,13 @@ XT quot_offset_to_pc(F_QUOTATION *quot, F_FIXNUM offset)
DEFINE_PRIMITIVE(curry) DEFINE_PRIMITIVE(curry)
{ {
F_CURRY *curry = allot_object(CURRY_TYPE,sizeof(F_CURRY)); F_CURRY *curry;
switch(type_of(dpeek())) switch(type_of(dpeek()))
{ {
case QUOTATION_TYPE: case QUOTATION_TYPE:
case CURRY_TYPE: case CURRY_TYPE:
curry = allot_object(CURRY_TYPE,sizeof(F_CURRY));
curry->quot = dpop(); curry->quot = dpop();
curry->obj = dpop(); curry->obj = dpop();
dpush(tag_object(curry)); dpush(tag_object(curry));