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

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

2889 for (; y != NIL; y = cdr (y)) 2889 for (; y != NIL; y = cdr (y))
2890 if (caar (y) == hdl) 2890 if (caar (y) == hdl)
2891 break; 2891 break;
2892 2892
2893 if (y != NIL) 2893 if (y != NIL)
2894 return car (y);
2895
2896 if (!all)
2894 break; 2897 break;
2895
2896 if (!all)
2897 return NIL;
2898 } 2898 }
2899
2900 if (x != NIL)
2901 return car (y);
2902 2899
2903 return NIL; 2900 return NIL;
2904} 2901}
2905 2902
2906#else /* USE_ALIST_ENV */ 2903#else /* USE_ALIST_ENV */

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines