boot: fix builtin? tests.

* tests/scm.test: Test primitives, not eval.

diff --git a/tests/scm.test b/tests/scm.test
index 351094a49848e29d3b96ca0007980db9e7c289cd..3d33e71eadffab405a4b468420c93c91c230d906 100755 (executable)
--- a/tests/scm.test
+++ b/tests/scm.test
@@ -118,9 +118,13 @@ exit $?
 ;;        (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?)