another fix to 1004

This commit is contained in:
Alex Shinn 2011-11-26 16:32:33 +09:00
parent fd425fb1ec
commit 8ca510bcb3

View file

@ -650,8 +650,6 @@
(cond (cond
((number? len) ((number? len)
len) len)
((memq 'result (type-array x))
"sexp_unbox_fixnum(res)")
(else (else
(and func (and func
(symbol? len) (symbol? len)