suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve prop mv

Browse Source
This commit is contained in:
Eli Barzilay 2010-05-04 20:01:24 -04:00
parent ec7a4cdd7e
commit 2f2bdce759
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/props
View File

@ -431,9 +431,9 @@ path/s is either such a string or a list of them.
[from (paths->list from null)] [from (paths->list from null)]
[to (paths->list to null)]) [to (paths->list to null)])
(for ([p (in-list (map prop-name known-props))]) (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) (unless (eq? v nonesuch)
(set-prop! to p v #:as-string? #t) (set-prop! to p v)
(del-prop! from p))))) (del-prop! from p)))))
(write-props)) (write-props))
(set! running-as-script? #t) (set! running-as-script? #t)