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

Comparing microscheme/scheme.c (file contents):
Revision 1.41 by root, Mon Nov 30 05:20:10 2015 UTC vs.
Revision 1.42 by root, Mon Nov 30 06:19:18 2015 UTC

… …
1393INTERFACE pointer 1393INTERFACE pointer
1394gensym (SCHEME_P) 1394gensym (SCHEME_P)
1395{ 1395{
1396 pointer x; 1396 pointer x;
1397 char name[40] = "gensym-"; 1397 char name[40] = "gensym-";
1398 xnum (name + 7, SCHEME_V->gensym_cnt); 1398 xnum (name + 7, ++SCHEME_V->gensym_cnt);
1399 1399
1400 return generate_symbol (SCHEME_A_ name); 1400 return generate_symbol (SCHEME_A_ name);
1401} 1401}
1402 1402
1403/* make symbol or number atom from string */ 1403/* make symbol or number atom from string */

Diff Legend

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