diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index fda4a1b2..84d83e18 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -1194,7 +1194,9 @@ ,(if->then new-ast))) (else new-ast)))) - ((prim-call? ast) + ((and (prim-call? ast) + ;; Not a primitive if the identifier has been redefined + (not assoc (car ast) renamed)) (let ((converted (cons (car ast) (map (lambda (a) (convert a renamed))