25 lines
678 B
Scheme
25 lines
678 B
Scheme
|
;;; This file is part of the Scheme Untergrund Library.
|
||
|
|
|
||
|
|
;; This code, written by Taylor Campbell, is in the public domain.
|
||
|
|
|
||
|
|
(define-structure srfi-10 srfi-10-interface
|
||
|
|
(open scheme
|
||
|
|
reading
|
||
|
|
tables
|
||
|
|
(subset signals (error)))
|
||
|
|
(files srfi-10))
|
||
|
|
|
||
|
|
(define-structure srfi-10-test/pi (export)
|
||
|
|
(open scheme
|
||
|
|
srfi-10
|
||
|
|
floatnums)
|
||
|
|
(files (test pi)))
|
||
|
|
|
||
|
|
(define-structure srfi-10-test/math (export circumference area)
|
||
|
|
;; SRFI-10-TEST/PI already opens SRFI-10, and so the , octothorpe
|
||
|
|
;; syntax is already defined in the reader; it is thus not necessary
|
||
|
|
;; to open SRFI-10 again.
|
||
|
|
(open scheme
|
||
|
|
srfi-10-test/pi)
|
||
|
|
(files (test math)))
|