/[gcl]/gcl/o/multival.c
ViewVC logotype

Diff of /gcl/o/multival.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.5 by pfdietz, Mon Mar 17 02:01:44 2003 UTC
# Line 43  Lvalues_list(void) Line 43  Lvalues_list(void)
43          check_arg(1);          check_arg(1);
44          list = vs_base[0];          list = vs_base[0];
45          vs_top = vs_base;          vs_top = vs_base;
46          while (!endp(list)) {            while (!endp_prop(list)) {      
47                  vs_push(MMcar(list));                  vs_push(MMcar(list));
48                  list = MMcdr(list);                  list = MMcdr(list);
49          }          }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26