fixed a bug in preference unmarshalling
svn: r10844
This commit is contained in:
parent
258c569afe
commit
391272c73a
|
@ -148,7 +148,7 @@
|
||||||
(and (list? l)
|
(and (list? l)
|
||||||
(andmap (λ (x)
|
(andmap (λ (x)
|
||||||
(and (list? x)
|
(and (list? x)
|
||||||
(andmap string? x)))
|
(andmap (λ (x) (or (string? x) (symbol? x))) x)))
|
||||||
l)))
|
l)))
|
||||||
|
|
||||||
(inherit get-allow-sharing? get-use-function-output-syntax?
|
(inherit get-allow-sharing? get-use-function-output-syntax?
|
||||||
|
|
Loading…
Reference in New Issue
Block a user