fix r6rs identifier-syntax bug

svn: r9645

collects/r6rs/private/identifier-syntax.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 (require (for-syntax scheme/base)
-         (for-template (only-in scheme/base set!)))
+         (for-template (only-in scheme/base set! #%app)))
 
 (provide identifier-syntax)
 

collects/tests/r6rs/base.ss

@@ -131,6 +131,9 @@
   (define-syntax p.car 
     (identifier-syntax (car p)))
 
+  (define-syntax kons
+    (identifier-syntax cons))
+
   ;; Not the same as in the report, because we avoid `set-car!':
   (define-syntax p2.car
     (identifier-syntax
@@ -1480,6 +1483,8 @@
     (test/unspec (set! p2.car 15))
     (test p2.car 15)
     (test p '(15 . 5))
+
+    (test (kons 1 2) '(1 . 2))
     
     ;;;
     ))

collects/tests/r6rs/syntax-case.ss

@@ -288,8 +288,5 @@
     (test/exn (syntax-violation 'form "bad" 7 8) &syntax)
 
     ;;
-    )
+    ))
-
-  (run-syntax-case-tests)
-  (report-test-results))