From 84d7136a12a0b1ae189cfbdbe3e2e6a6013b0cf6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 24 Apr 2012 18:51:46 -0700 Subject: [PATCH] change to in-place reverse. --- basis/math/polynomials/polynomials.factor | 2 +- extra/multi-methods/multi-methods.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/math/polynomials/polynomials.factor b/basis/math/polynomials/polynomials.factor index e85d71e7a6..045b661602 100644 --- a/basis/math/polynomials/polynomials.factor +++ b/basis/math/polynomials/polynomials.factor @@ -36,7 +36,7 @@ ALIAS: n*p n*v [ drop length [ iota ] keep ] [ nip ] [ drop ] 2tri - '[ _ _ _ v* sum ] map reverse ; + '[ _ _ _ v* sum ] map reverse! ; : p-sq ( p -- p^2 ) dup p* ; inline diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor index b403526120..331da4c90b 100644 --- a/extra/multi-methods/multi-methods.factor +++ b/extra/multi-methods/multi-methods.factor @@ -130,7 +130,7 @@ ERROR: no-method arguments generic ; : multi-dispatch-quot ( methods generic -- quot ) [ make-default-method ] - [ drop [ [ multi-predicate ] dip ] assoc-map reverse ] + [ drop [ [ multi-predicate ] dip ] assoc-map reverse! ] 2bi alist>quot ; ! Generic words