;; (display ((lambda (x) x) (values 1 2 3)))
;; (newline)))
-(pass-if "builtin?" (builtin? car))
-(pass-if "builtin?" (not (builtin? not)))
-;;(pass-if "builtin?" (builtin? cond))
+(pass-if "builtin? car" (builtin? car))
+(pass-if "builtin? cdr" (builtin? cdr))
+(pass-if "builtin? cons" (builtin? cons))
+(pass-if "builtin? eq?" (builtin? eq?))
+(pass-if "builtin? if" (builtin? eq?))
+(when (not guile?)
+ (pass-if "builtin? eval" (not (builtin? not))))
(pass-if "procedure?" (procedure? builtin?))
(pass-if "procedure?" (procedure? procedure?))
(when (not guile?)