mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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 #define FUNC_NAME s_scm_instruction_name_p
{ {
SCM_VALIDATE_SYMBOL (1, name); 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 #undef FUNC_NAME
@ -231,7 +231,7 @@ SCM_DEFINE (scm_symbol_to_instruction, "symbol->instruction", 1, 0, 0,
struct scm_instruction *p; struct scm_instruction *p;
SCM_VALIDATE_SYMBOL (1, name); SCM_VALIDATE_SYMBOL (1, name);
p = find_instruction_by_name (SCM_CHARS (name)); p = find_instruction_by_name (SCM_SYMBOL_CHARS (name));
if (!p) if (!p)
SCM_MISC_ERROR ("No such instruction: ~S", SCM_LIST1 (name)); 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 */ /* Process instruction */
if (!SCM_SYMBOLP (old[i]) 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])); SCM_MISC_ERROR ("Invalid instruction: ~S", SCM_LIST1 (old[i]));
new[i] = SCM_ADDR_TO_CODE (p->addr); new[i] = SCM_ADDR_TO_CODE (p->addr);