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
((number? len)
len)
((memq 'result (type-array x))
"sexp_unbox_fixnum(res)")
(else
(and func
(symbol? len)