Explicitly import `@@' to support R6RS library purification enhancements

on `master'.

* module/rnrs/6/conditions.scm:
* module/rnrs/6/exceptions.scm:
* module/rnrs/6/files.scm:
* module/rnrs/6/hashtables.scm:
* module/rnrs/io/6/simple.scm:
* module/rnrs/records/6/inspection.scm: Add explicit import for `@@'.

module/rnrs/6/conditions.scm

@@ -82,7 +82,7 @@
 	  &undefined
 	  make-undefined-violation
 	  undefined-violation?)
-  (import (only (guile) and=>)
+  (import (only (guile) and=> @@)
 	  (rnrs base (6))
 	  (rnrs lists (6))
 	  (rnrs records procedural (6)))

module/rnrs/6/exceptions.scm

@@ -22,7 +22,7 @@
   (import (rnrs base (6))
           (rnrs conditions (6))
 	  (rnrs records procedural (6))
-	  (only (guile) with-throw-handler))
+	  (only (guile) with-throw-handler @@))
 
   (define raise (@@ (rnrs records procedural) r6rs-raise))
   (define raise-continuable 

module/rnrs/6/files.scm

@@ -56,7 +56,7 @@
 	  i/o-port-error?
 	  i/o-error-port)
 
-  (import (rename (only (guile) file-exists? delete-file catch) 
+  (import (rename (only (guile) file-exists? delete-file catch @@) 
 		  (delete-file delete-file-internal))
 	  (rnrs base (6))
 	  (rnrs conditions (6))

module/rnrs/6/hashtables.scm

@@ -42,7 +42,7 @@
 	  string-hash
 	  string-ci-hash
 	  symbol-hash)
-  (import (rename (only (guile) string-hash-ci string-hash hashq hashv)
+  (import (rename (only (guile) string-hash-ci string-hash hashq hashv @@)
 		  (string-hash-ci string-ci-hash))
 	  (only (ice-9 optargs) define*)
 	  (rename (only (srfi :69) make-hash-table

module/rnrs/io/6/simple.scm

@@ -88,7 +88,8 @@
  
                                 input-port? 
 				output-port?)
-          (only (guile) call-with-input-file
+          (only (guile) @@
+                        call-with-input-file
 			call-with-output-file
 
 			current-input-port

module/rnrs/records/6/inspection.scm

@@ -32,7 +32,7 @@
 	  (rnrs conditions (6))
           (rnrs exceptions (6))
 	  (rnrs records procedural (6))
-	  (only (guile) struct-ref vtable-index-layout))
+	  (only (guile) struct-ref vtable-index-layout @@))
 
   (define record-internal? (@@ (rnrs records procedural) record-internal?))