ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/microscheme/scheme.c
(Generate patch)

Comparing microscheme/scheme.c (file contents):
Revision 1.29 by root, Sat Nov 28 10:31:06 2015 UTC vs.
Revision 1.30 by root, Sat Nov 28 10:31:40 2015 UTC

… …
391} 391}
392 392
393INTERFACE char * 393INTERFACE char *
394symname (pointer p) 394symname (pointer p)
395{ 395{
396 return strvalue (car (p)); 396 return strvalue (p);
397} 397}
398 398
399#if USE_PLIST 399#if USE_PLIST
400SCHEME_EXPORT int 400SCHEME_EXPORT int
401hasprop (pointer p) 401hasprop (pointer p)
… …
1095static pointer 1095static pointer
1096oblist_add_by_name (SCHEME_P_ const char *name) 1096oblist_add_by_name (SCHEME_P_ const char *name)
1097{ 1097{
1098 int location; 1098 int location;
1099 1099
1100 pointer x = immutable_cons (mk_string (SCHEME_A_ name), NIL); 1100 pointer x = mk_string (SCHEME_A_ name);
1101 set_typeflag (x, T_SYMBOL); 1101 set_typeflag (x, T_SYMBOL);
1102 setimmutable (car (x)); 1102 setimmutable (car (x));
1103 1103
1104 location = hash_fn (name, veclength (SCHEME_V->oblist)); 1104 location = hash_fn (name, veclength (SCHEME_V->oblist));
1105 vector_set (SCHEME_V->oblist, location, immutable_cons (x, vector_get (SCHEME_V->oblist, location))); 1105 vector_set (SCHEME_V->oblist, location, immutable_cons (x, vector_get (SCHEME_V->oblist, location)));

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines