/[cvs]/stack/fib.st
ViewVC logotype

Contents of /stack/fib.st

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (show annotations)
Sun Mar 10 08:30:43 2002 UTC (22 years, 2 months ago) by masse
Branch: MAIN
Changes since 1.1: +1 -1 lines 
stack.c (new_val): Set gc_garb flag.
(gc_mark): Removed check if val is NULL.
(gc_init): Various optimizations.
fib.st: Changed to calculate "15 fib;".
1 #!./stack
2 [ dup;
3 1 >;
4 [ dup; 1 -; fib; swap; 2 -; fib; +; ]
5 if;
6 ]
7 fib def;
8
9 15 fib;
10 print;
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26