guile/guile-vm/src vm.c

[Keisuke Nishida]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Keisuke Nishida <address@hidden>        00/09/22 10:38:37

Modified files:
        guile-vm/src   : vm.c 

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-vm/src/vm.c.diff?r1=1.5&r2=1.6

Patches:
Index: guile/guile-vm/src/vm.c
diff -u guile/guile-vm/src/vm.c:1.5 guile/guile-vm/src/vm.c:1.6
--- guile/guile-vm/src/vm.c:1.5 Wed Sep 20 14:06:30 2000
+++ guile/guile-vm/src/vm.c     Fri Sep 22 10:38:36 2000
@@ -219,7 +219,7 @@
 #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 @@
   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 @@
 
       /* 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);