mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* src/vm.c: SCM_CHARS -> SCM_SYMBOL_CHARS.

Browse source
This commit is contained in:
Keisuke Nishida 2000-09-22 17:38:36 +00:00
parent 19a84b86bb
commit 04666c260c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/vm.c
View file

@ -219,7 +219,7 @@ SCM_DEFINE (scm_instruction_name_p, "instruction-name?", 1, 0, 0,
#define FUNC_NAME s_scm_instruction_name_p
{
SCM_VALIDATE_SYMBOL (1, name);
return SCM_BOOL (find_instruction_by_name (SCM_CHARS (name)));
return SCM_BOOL (find_instruction_by_name (SCM_SYMBOL_CHARS (name)));
}
#undef FUNC_NAME
@ -231,7 +231,7 @@ SCM_DEFINE (scm_symbol_to_instruction, "symbol->instruction", 1, 0, 0,
struct scm_instruction *p;
SCM_VALIDATE_SYMBOL (1, name);
p = find_instruction_by_name (SCM_CHARS (name));
p = find_instruction_by_name (SCM_SYMBOL_CHARS (name));
if (!p)
SCM_MISC_ERROR ("No such instruction: ~S", SCM_LIST1 (name));
@ -472,7 +472,7 @@ SCM_DEFINE (scm_make_bytecode, "make-bytecode", 1, 0, 0,
/* Process instruction */
if (!SCM_SYMBOLP (old[i])
|| !(p = find_instruction_by_name (SCM_CHARS (old[i]))))
|| !(p = find_instruction_by_name (SCM_SYMBOL_CHARS (old[i]))))
SCM_MISC_ERROR ("Invalid instruction: ~S", SCM_LIST1 (old[i]));
new[i] = SCM_ADDR_TO_CODE (p->addr);