1 files changed, 1 insertions, 1 deletions
diff --git a/src/builtins.c b/src/builtins.c
index 58873ef..f64083b 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -10,7 +10,7 @@ SExpRef builtin_car(Interp *interp, SExpRef args) {
     if (LENGTH(args) != 1) {
         return new_error(interp, "car: wrong argument number.\n");
     }
-    if (ERRORP(args)) return args;
+    if (CTL_FL(args)) return args;
     return CAR(CAR(args));
 }