mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
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 `@@'.
This commit is contained in:
parent
5f29551e4d
commit
2470bda772
6 changed files with 7 additions and 6 deletions
|
@ -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)))
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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?))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue