mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

class-of fix for RTL programs

Browse source 
* libguile/goops.c (scm_class_of): Use the same logic for RTL programs
  and stack VM programs.
This commit is contained in:
Andy Wingo 2013-10-18 09:45:53 +02:00
parent 361d0de285
commit 919f304fb2
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/goops.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012
/* Copyright (C) 1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012,2013
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@ -295,15 +295,18 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
return scm_class_fraction;
}
case scm_tc7_program:
case scm_tc7_rtl_program:
/* Although SCM_SUBR_GENERIC is specific to stack programs
currently, in practice only stack programs pass
SCM_PROGRAM_IS_PRIMITIVE_GENERIC. In the future this will
change to be the other way around, when subrs become RTL
programs. */
if (SCM_PROGRAM_IS_PRIMITIVE_GENERIC (x)
&& SCM_UNPACK (*SCM_SUBR_GENERIC (x)))
return scm_class_primitive_generic;
else
return scm_class_procedure;
case scm_tc7_rtl_program:
return scm_class_procedure;
case scm_tc7_smob:
{
scm_t_bits type = SCM_TYP16 (x);