mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

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

Browse source 
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 `@@'.
This commit is contained in:
Julian Graham 2010-05-20 09:33:39 -04:00
parent 5f29551e4d
commit 2470bda772
6 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/rnrs/6/conditions.scm
View file

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

2
module/rnrs/6/exceptions.scm
View file

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

2
module/rnrs/6/files.scm
View file

@ -56,7 +56,7 @@
i/o-port-error? i/o-port-error?
i/o-error-port) 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)) (delete-file delete-file-internal))
(rnrs base (6)) (rnrs base (6))
(rnrs conditions (6)) (rnrs conditions (6))

2
module/rnrs/6/hashtables.scm
View file

@ -42,7 +42,7 @@
string-hash string-hash
string-ci-hash string-ci-hash
symbol-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)) (string-hash-ci string-ci-hash))
(only (ice-9 optargs) define*) (only (ice-9 optargs) define*)
(rename (only (srfi :69) make-hash-table (rename (only (srfi :69) make-hash-table

3
module/rnrs/io/6/simple.scm
View file

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

2
module/rnrs/records/6/inspection.scm
View file

@ -32,7 +32,7 @@
(rnrs conditions (6)) (rnrs conditions (6))
(rnrs exceptions (6)) (rnrs exceptions (6))
(rnrs records procedural (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?)) (define record-internal? (@@ (rnrs records procedural) record-internal?))