diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2005-06-24 17:25:36 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-25 19:09:30 +0200 |
commit | 6208295910a6fab78228b8255ed56ccd089bd5f0 (patch) | |
tree | 25ff4536767cd202bb8db18759dc3049e99d097b /src/frames.c | |
parent | 135b32ee84567a7d704fdc1f6b86997bfd970eb9 (diff) | |
download | guile-6208295910a6fab78228b8255ed56ccd089bd5f0.tar.gz |
Removed a few more deprecated function calls; documented closures.
* src/Makefile.am (.c.x): Fixed the rule.
* src/envs.c: Use `scm_hash_get_handle ()' instead of
`scm_sym2ovcell_soft ()' and `scm_hash_create_handle_x ()' instead of
`scm_intern_symbol ()'.
* src/objcodes.c (bytecode->objcode): Don't use `SCM_VALIDATE_INUM', use
`SCM_VALIDATE_NUMBER' instead.
(make_objcode_by_mmap): Check whether the file is smaller than the
magic cookies; check whether the magic cookies are there.
* src/frames.c (frame-local-ref): Likewise, but use `SCM_MAKE_VALIDATE'.
(frame-local-set!): Likewise.
* src/instructions.c (opcode->instruction): Likewise.
* src/programs.c (program-external-set!): New function.
* src/guile-disasm.in: New file.
* src/Makefile.am: Produce `guile-disasm'.
* doc/guile-vm.texi: Documented `external-ref', `external-set', `local-ref'
and `local-set'.
* module/system/vm/disasm.scm (disassemble-bytecode): Fixed the way
`load-program' is represented.
git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-1
Diffstat (limited to 'src/frames.c')
-rw-r--r-- | src/frames.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/frames.c b/src/frames.c index 1b83bf022..80c2147af 100644 --- a/src/frames.c +++ b/src/frames.c @@ -115,7 +115,7 @@ SCM_DEFINE (scm_frame_local_ref, "frame-local-ref", 2, 0, 0, #define FUNC_NAME s_scm_frame_local_ref { SCM_VALIDATE_HEAP_FRAME (1, frame); - SCM_VALIDATE_INUM (2, index); /* FIXME: Check the range! */ + SCM_MAKE_VALIDATE (2, index, I_INUMP); /* FIXME: Check the range! */ return SCM_FRAME_VARIABLE (SCM_HEAP_FRAME_POINTER (frame), SCM_I_INUM (index)); } @@ -127,7 +127,7 @@ SCM_DEFINE (scm_frame_local_set_x, "frame-local-set!", 3, 0, 0, #define FUNC_NAME s_scm_frame_local_set_x { SCM_VALIDATE_HEAP_FRAME (1, frame); - SCM_VALIDATE_INUM (2, index); /* FIXME: Check the range! */ + SCM_MAKE_VALIDATE (2, index, I_INUMP); /* FIXME: Check the range! */ SCM_FRAME_VARIABLE (SCM_HEAP_FRAME_POINTER (frame), SCM_I_INUM (index)) = val; return SCM_UNSPECIFIED; |