|
@@ -407,7 +407,8 @@ block."
|
|
((lambda (result)
|
|
((lambda (result)
|
|
(cond
|
|
(cond
|
|
((member "file" result-params)
|
|
((member "file" result-params)
|
|
- (cdr (assoc :file params)))
|
|
|
|
|
|
+ (or (cdr (assoc :file params))
|
|
|
|
+ (if (stringp result) result)))
|
|
((and (eq (cdr (assoc :result-type params)) 'value)
|
|
((and (eq (cdr (assoc :result-type params)) 'value)
|
|
(or (member "vector" result-params)
|
|
(or (member "vector" result-params)
|
|
(member "table" result-params))
|
|
(member "table" result-params))
|