/[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.7 by camm, Thu Nov 6 16:08:09 2003 UTC revision 1.8 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 41  LFD(Lvalues_list)(void) Line 41  LFD(Lvalues_list)(void)
41          check_arg(1);          check_arg(1);
42          list = vs_base[0];          list = vs_base[0];
43          vs_top = vs_base;          vs_top = vs_base;
44          while (!endp_prop(list)) {                while (!endp(list)) {  
45                  vs_push(MMcar(list));                  vs_push(MMcar(list));
46                  list = MMcdr(list);                  list = MMcdr(list);
47          }          }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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