prim-convert - do not stop on first ref

This commit is contained in:
Justin Ethier 2017-04-04 08:54:06 +00:00
parent 1a28889caf
commit a4319fd48d

View file

@ -1223,7 +1223,7 @@
(cond (cond
((ref? (car ast)) ((ref? (car ast))
`( ,(prim:func->prim (car ast) (- (length ast) 1)) `( ,(prim:func->prim (car ast) (- (length ast) 1))
,@(cdr ast))) ,@(map conv (cdr ast))))
(else (else
(map conv ast)))) (map conv ast))))
(else (else