From 2f2bdce759f9c78d61dc9d91d01ca8d3aafc94a8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 4 May 2010 20:01:24 -0400 Subject: [PATCH] improve prop mv --- collects/meta/props | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/meta/props b/collects/meta/props index 5680865c0a..86ed9e67a7 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -431,9 +431,9 @@ path/s is either such a string or a list of them. [from (paths->list from null)] [to (paths->list to null)]) (for ([p (in-list (map prop-name known-props))]) - (let ([v (get-prop from p (lambda () nonesuch) #:strict? #t #:as-string? #t)]) + (let ([v (get-prop from p nonesuch #:strict? #t)]) (unless (eq? v nonesuch) - (set-prop! to p v #:as-string? #t) + (set-prop! to p v) (del-prop! from p))))) (write-props)) (set! running-as-script? #t)