hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added stix_bfmtout() and stix_oofmtout()

Browse Source
This commit is contained in:
hyunghwan.chung
2016-06-01 15:33:03 +00:00
parent 037bbff42c
commit 0c4ce4eb04
15 changed files with 1341 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
stix/lib/exec.c
View File

@ -26,7 +26,6 @@
#include "stix-prv.h"
/* TODO: remove these headers after having migrated system-dependent functions of of this file */
#if defined(_WIN32)
# include <windows.h>
@ -1214,15 +1213,15 @@ static int prim_dump (stix_t* stix, stix_ooi_t nargs)
STIX_ASSERT (nargs >= 0);
printf ("RECEIVER: ");
stix_bfmtout (stix, "RECEIVER: ");
print_object (stix, STIX_STACK_GET(stix, stix->sp - nargs));
printf ("\n");
stix_bfmtout (stix, "\n");
for (i = nargs; i > 0; )
{
--i;
printf ("ARGUMENT: ");
stix_bfmtout (stix, "ARGUMENT: ");
print_object (stix, STIX_STACK_GET(stix, stix->sp - i));
printf ("\n");
stix_bfmtout (stix, "\n");
}
STIX_STACK_POPS (stix, nargs);
@ -2667,7 +2666,7 @@ typedef struct prim_t prim_t;
static prim_t primitives[] =
{
{ 0, MAX_NARGS, prim_dump, "_dump" },
{ 0, MAX_NARGS, prim_dump, "_dump" },
{ 1, 1, prim_identical, "_identical" },
{ 1, 1, prim_not_identical, "_not_identical" },