fixes bug 176057: partition not working right

2007-12-13 01:07:32 -05:00
parent 8cd744d4bd
commit b5ae1e2361
3 changed files with 3 additions and 3 deletions
@@ -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)
@@ -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 
@@ -1 +1 @@
-1235
+1236