scsh-0.6/scheme/bcomp/config.scm

35 lines
732 B
Scheme
Raw Normal View History

1999-09-14 08:45:02 -04:00
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; For DEFINE-STRUCTURE macro
(define (make-a-package opens-thunk accesses-thunk tower
dir clauses name)
(make-package opens-thunk accesses-thunk
#t ;unstable
tower
dir
clauses
#f
name))
(define (loser . rest)
(error "init-defpackage! neglected"))
(define interface-of structure-interface)
(define *verify-later!* (lambda (thunk) #f))
(define (verify-later! thunk)
(*verify-later!* thunk))
(define (set-verify-later! proc)
(set! *verify-later!* proc))
(define (note-name! thing name)
(cond ((interface? thing)
(note-interface-name! thing name))
((structure? thing)
(note-structure-name! thing name)))
thing)