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

Diff of /gcl/o/num_rand.c

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

revision 1.3.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.3.6.2 by camm, Thu Nov 6 16:16:52 2003 UTC
# Line 110  advance_random_state(object rs) Line 110  advance_random_state(object rs)
110  }  }
111    
112    
113  void  LFD(Lrandom)(void)
 Lrandom(void)  
114  {  {
115          int j;          int j;
116          object x;          object x;
# Line 127  Lrandom(void) Line 126  Lrandom(void)
126          vs_push(x);          vs_push(x);
127  }  }
128    
129  void  LFD(Lmake_random_state)(void)
 Lmake_random_state(void)  
130  {  {
131          int j;          int j;
132          object x;          object x;
# Line 142  Lmake_random_state(void) Line 140  Lmake_random_state(void)
140          vs_push(x);          vs_push(x);
141  }  }
142    
143  void  LFD(Lrandom_state_p)(void)
 Lrandom_state_p(void)  
144  {  {
145          check_arg(1);          check_arg(1);
146          if (type_of(vs_pop) == t_random)          if (type_of(vs_pop) == t_random)

Legend:
Removed from v.1.3.6.1  
changed lines
  Added in v.1.3.6.2

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