38 lines
1.1 KiB
Scheme
38 lines
1.1 KiB
Scheme
; Copyright (c) 2003 RT Happe <rthappe at web de>
|
|
; See the file COPYING distributed with the Scheme Untergrund Library
|
|
|
|
;; odds and ends
|
|
(define-structure krims
|
|
(export (assert :syntax)
|
|
(receive/name :syntax)
|
|
(gen-dispatch :syntax))
|
|
(open srfi-28 ; format
|
|
srfi-23 ; error
|
|
scheme)
|
|
(files krims))
|
|
|
|
;; srfi-1 + REST
|
|
(define-structure srfi-1+
|
|
(compound-interface srfi-1-face
|
|
(export rest))
|
|
(open srfi-1 scheme)
|
|
(begin (define rest cdr)))
|
|
|
|
;; srfi-9 + define-record-discloser
|
|
;; [ extended version of the srfi-9 structure def
|
|
;; from scsh-0.6.3/scheme/more-packages.scm ]
|
|
(define-structure srfi-9+
|
|
(export (define-record-type :syntax)
|
|
define-record-discloser)
|
|
(open scheme-level-2
|
|
(with-prefix define-record-types sys:))
|
|
(begin
|
|
(define-syntax define-record-type
|
|
(syntax-rules ()
|
|
((define-record-type type-name . stuff)
|
|
(sys:define-record-type type-name type-name . stuff))))
|
|
(define define-record-discloser sys:define-record-discloser)))
|
|
|
|
|
|
|