diff options
author | Ludovic Court`es <ludovic.courtes@laas.fr> | 2005-04-28 15:45:59 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-25 19:09:30 +0200 |
commit | 238e7a11a8ec5aa2406b31620d3e56409639d4cf (patch) | |
tree | e03f9ccbc014c159e01a329837ad4c3679fa35a0 /src/programs.c | |
parent | fa19602c28cf4a6d54860e98b3c4379b3a058d37 (diff) | |
download | guile-238e7a11a8ec5aa2406b31620d3e56409639d4cf.tar.gz |
Got the VM up and running! Augmented the documentation.
* src/*.[ch]: Replaced the remaining `SCM_MAKINUM', and changed `SCM_VELTS'
into `scm_vector_elements ()'.
* src/vm_loader.c (link): Fixed so that it pushed a variable object on
the stack.
* src/vm_system.c (variable-ref): Fixed so that it uses `scm_variable_ref ()'
and friends.
* module/system/vm/assemble.scm (dump-object!): Fixed the string case.
* src/vm_engine.h (CONS): Use `scm_cons' instead of `SCM_NEWCELL'.
* doc/guile-vm.texi: Added actual instruction definitions, explanations of
the program invocation mechanism, programs' object tables, etc., in the
`Instruction Set' chapter.
git-archimport-id: lcourtes@laas.fr--2004-libre/guile-vm--revival--0.6--patch-5
Diffstat (limited to 'src/programs.c')
-rw-r--r-- | src/programs.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/programs.c b/src/programs.c index 111f87f66..d45cd96dd 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_MAKINUM (p->nargs), - SCM_MAKINUM (p->nrest), - SCM_MAKINUM (p->nlocs), - SCM_MAKINUM (p->nexts)); + return SCM_LIST4 (scm_from_uchar (p->nargs), + scm_from_uchar (p->nrest), + scm_from_uchar (p->nlocs), + scm_from_uchar (p->nexts)); } #undef FUNC_NAME |