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

Comparing microscheme/scheme.c (file contents):
Revision 1.31 by root, Sat Nov 28 10:54:41 2015 UTC vs.
Revision 1.32 by root, Sat Nov 28 10:56:45 2015 UTC

2936 for (y = car (x); y != NIL; y = cdr (y)) 2936 for (y = car (x); y != NIL; y = cdr (y))
2937 if (caar (y) == hdl) 2937 if (caar (y) == hdl)
2938 break; 2938 break;
2939 2939
2940 if (y != NIL) 2940 if (y != NIL)
2941 return car (y);
2941 break; 2942 break;
2942 2943
2943 if (!all) 2944 if (!all)
2944 return NIL; 2945 break;
2945 } 2946 }
2946
2947 if (x != NIL)
2948 return car (y);
2949 2947
2950 return NIL; 2948 return NIL;
2951} 2949}
2952 2950
2953#endif /* USE_ALIST_ENV else */ 2951#endif /* USE_ALIST_ENV else */

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines