summaryrefslogtreecommitdiff
path: root/src/instructions.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/instructions.c')
-rw-r--r--src/instructions.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/instructions.c b/src/instructions.c
index 93115de91..df557b264 100644
--- a/src/instructions.c
+++ b/src/instructions.c
@@ -87,7 +87,7 @@ SCM_DEFINE (scm_instruction_list, "instruction-list", 0, 0, 0,
SCM list = SCM_EOL;
struct scm_instruction *ip;
for (ip = scm_instruction_table; ip->opcode != scm_op_last; ip++)
- list = scm_cons (scm_str2symbol (ip->name), list);
+ list = scm_cons (scm_from_locale_symbol (ip->name), list);
return scm_reverse_x (list, SCM_EOL);
}
#undef FUNC_NAME
@@ -150,7 +150,7 @@ SCM_DEFINE (scm_opcode_to_instruction, "opcode->instruction", 1, 0, 0,
SCM_VALIDATE_INUM (1, op);
i = scm_to_int (op);
SCM_ASSERT_RANGE (1, op, 0 <= i && i < scm_op_last);
- return scm_str2symbol (scm_instruction_table[i].name);
+ return scm_from_locale_symbol (scm_instruction_table[i].name);
}
#undef FUNC_NAME