diff options
| author | Andy Wingo <wingo@pobox.com> | 2008-05-02 17:35:25 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2008-05-02 17:35:25 +0200 |
| commit | 6649bc04364be26666caa6395900265736d67a98 (patch) | |
| tree | c47e966f22ab628b1c19acdd8472cf64aa55a0f6 /benchmark | |
| parent | b89fc2153ec8a46ce55d16c3a90a559117bc3aa1 (diff) | |
| download | guile-6649bc04364be26666caa6395900265736d67a98.tar.gz | |
cleanups in syntax.scm
* benchmark/lib.scm (fibo): Make fibo actually a fibonacci sequence.
* module/system/base/syntax.scm (system): Forward-declare all exports.
(expand-symbol, slot): Rewrite expand-symbol to expand to a
non-recursive invocation of `slot', so that in the future when we get
rid of this syntax, the replacement will be more palatable to the eyes.
Diffstat (limited to 'benchmark')
| -rw-r--r-- | benchmark/lib.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/benchmark/lib.scm b/benchmark/lib.scm index d46e00ca9..3946d2dff 100644 --- a/benchmark/lib.scm +++ b/benchmark/lib.scm @@ -4,10 +4,10 @@ (define (fibo x) - (if (= 1 x) + (if (or (= x 1) (= x 2)) 1 - (+ x - (fibo (1- x))))) + (+ (fibo (- x 1)) + (fibo (- x 2))))) (define (g-c-d x y) (if (= x y) |