[Guile-commits] GNU Guile branch, wip-r6rs-libraries, updated. release_1-9-8-104-g43199d6

[Julian Graham]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=43199d685ca46cfa14258c3beba3097c191343b6

The branch, wip-r6rs-libraries has been updated
       via  43199d685ca46cfa14258c3beba3097c191343b6 (commit)
      from  26f449d1ee293b0fed9766d1a4567e1a64230c2f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 43199d685ca46cfa14258c3beba3097c191343b6
Author: Julian Graham <address@hidden>
Date:   Thu May 20 09:33:39 2010 -0400

    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 `@@'.

-----------------------------------------------------------------------

Summary of changes:
 module/rnrs/6/conditions.scm         |    2 +-
 module/rnrs/6/exceptions.scm         |    2 +-
 module/rnrs/6/files.scm              |    2 +-
 module/rnrs/6/hashtables.scm         |    2 +-
 module/rnrs/io/6/simple.scm          |    3 ++-
 module/rnrs/records/6/inspection.scm |    2 +-
 6 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/module/rnrs/6/conditions.scm b/module/rnrs/6/conditions.scm
index 678dc1a..9c6539f 100644
--- a/module/rnrs/6/conditions.scm
+++ b/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)))
diff --git a/module/rnrs/6/exceptions.scm b/module/rnrs/6/exceptions.scm
index 70526f5..d810f2b 100644
--- a/module/rnrs/6/exceptions.scm
+++ b/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 
diff --git a/module/rnrs/6/files.scm b/module/rnrs/6/files.scm
index da806d4..e6851d0 100644
--- a/module/rnrs/6/files.scm
+++ b/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))
diff --git a/module/rnrs/6/hashtables.scm b/module/rnrs/6/hashtables.scm
index 1afa91b..8affbbb 100644
--- a/module/rnrs/6/hashtables.scm
+++ b/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
diff --git a/module/rnrs/io/6/simple.scm b/module/rnrs/io/6/simple.scm
index 593414a..6afae14 100644
--- a/module/rnrs/io/6/simple.scm
+++ b/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
diff --git a/module/rnrs/records/6/inspection.scm 
b/module/rnrs/records/6/inspection.scm
index 47b289c..a142d7c 100644
--- a/module/rnrs/records/6/inspection.scm
+++ b/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?))
 


hooks/post-receive
-- 
GNU Guile