modularize sex #24
@@ -112,7 +112,7 @@
|
|||||||
(lambda (st)
|
(lambda (st)
|
||||||
((fmt-let 'op op
|
((fmt-let 'op op
|
||||||
(if (and (c-op<= (fmt-op st) op)
|
(if (and (c-op<= (fmt-op st) op)
|
||||||
(not (vector? st)))
|
(not (vector? x)))
|
||||||
(c-paren x)
|
(c-paren x)
|
||||||
x))
|
x))
|
||||||
st)))
|
st)))
|
||||||
|
|||||||
Reference in New Issue
Block a user