hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2005-07-04 08:37:25 +00:00
parent 4d1e9c68ea
commit 42cf2f5b0b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/stx/class.c
View File

@ -1,5 +1,5 @@
/*
* $Id: class.c,v 1.13 2005-07-03 16:37:01 bacon Exp $
* $Id: class.c,v 1.14 2005-07-04 08:37:25 bacon Exp $
*/
#include <xp/stx/class.h>
@ -105,7 +105,7 @@ xp_word_t xp_stx_lookup_class_variable (
/* TODO: can a metaclas have class variables? */
if (class_obj->header.class != stx->class_metaclass &&
class_obj->variables != stx->nil) {
class_obj->class_variables != stx->nil) {
if (xp_stx_hash_lookup_symbol(stx,
class_obj->class_variables, name) != stx->nil) return class_index;
}

2
ase/test/stx/test.st
View File

@ -10,7 +10,7 @@ perform: method with: x with: y with: z with: a with: b with: c
b := -30 xxx nil this.
"instanceClass := 10."
literals := 20.
" Win32Errors := 10."
Win32Errors := 10.
(jjj xxx: 10 xy) zzz: (10 fuck: 20 you: 40) yyy: kkk.
[ spec plus: 20]