summaryrefslogtreecommitdiff
path: root/src/programs.c
diff options
context:
space:
mode:
authorLudovic Court`es <ludovic.courtes@laas.fr>2005-04-29 14:12:12 +0000
committerLudovic Courtès <ludo@gnu.org>2008-04-25 19:09:30 +0200
commit2d80426a3ec7de15a194d0baed0e9f4be8659b92 (patch)
tree8100ff8d82d6a1fec507e67f23987c0da58a9703 /src/programs.c
parent238e7a11a8ec5aa2406b31620d3e56409639d4cf (diff)
downloadguile-2d80426a3ec7de15a194d0baed0e9f4be8659b92.tar.gz
Improved the VM's efficiency. The VM is as fast as the interpreter. :-(
* benchmark/lib.scm: New file. * benchmark/measure.scm: New file. * README: Added useful pointers to various threads. * doc/guile-vm.texi: Fixed the description of `load-program' (it now expects _immediate_ integers). * src/*.[ch]: Use immediate integers whereever possible, as in the original code. For `CONS', use `scm_cell' rather than `scm_cons'. git-archimport-id: lcourtes@laas.fr--2004-libre/guile-vm--revival--0.6--patch-6
Diffstat (limited to 'src/programs.c')
-rw-r--r--src/programs.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/programs.c b/src/programs.c
index d45cd96dd..756348d70 100644
--- a/src/programs.c
+++ b/src/programs.c
@@ -149,10 +149,10 @@ SCM_DEFINE (scm_program_arity, "program-arity", 1, 0, 0,
SCM_VALIDATE_PROGRAM (1, program);
p = SCM_PROGRAM_DATA (program);
- return SCM_LIST4 (scm_from_uchar (p->nargs),
- scm_from_uchar (p->nrest),
- scm_from_uchar (p->nlocs),
- scm_from_uchar (p->nexts));
+ return SCM_LIST4 (SCM_I_MAKINUM (p->nargs),
+ SCM_I_MAKINUM (p->nrest),
+ SCM_I_MAKINUM (p->nlocs),
+ SCM_I_MAKINUM (p->nexts));
}
#undef FUNC_NAME