From b5ae1e23614f60d3297f91f2fcf1be84773fa573 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Thu, 13 Dec 2007 01:07:32 -0500 Subject: [PATCH] fixes bug 176057: partition not working right --- scheme/ikarus.lists.ss | 2 +- scheme/ikarus.timer.ss | 2 +- scheme/last-revision | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/ikarus.lists.ss b/scheme/ikarus.lists.ss index 21c7643..8599760 100644 --- a/scheme/ikarus.lists.ss +++ b/scheme/ikarus.lists.ss @@ -852,7 +852,7 @@ (values (cons* a0 a1 a*) b*) (values (cons a0 a*) (cons a1 b*))) (if (p a1) - (values (cons a0 a*) (cons a1 b*)) + (values (cons a1 a*) (cons a0 b*)) (values a* (cons* a0 a1 b*))))))) (if (null? h) (if (p a0) diff --git a/scheme/ikarus.timer.ss b/scheme/ikarus.timer.ss index 0ad4534..65464f8 100644 --- a/scheme/ikarus.timer.ss +++ b/scheme/ikarus.timer.ss @@ -16,7 +16,7 @@ (library (ikarus timers) (export time-it verbose-timer) - (import (except (ikarus) time-it)) + (import (except (ikarus) time-it verbose-timer)) (define-struct stats (user-secs user-usecs diff --git a/scheme/last-revision b/scheme/last-revision index d729899..3961fb4 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1235 +1236