scsh-0.6/scheme/alt/low.scm

26 lines
673 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.
; Portable versions of low-level things that would really like to rely
; on the Scheme 48 VM or on special features provided by the byte code
; compiler.
(define (vector-unassigned? v i) #f)
(define (flush-the-symbol-table!) #f)
(define maybe-open-input-file open-input-file)
(define maybe-open-output-file open-output-file)
; Suppress undefined export warnings.
(define-syntax %file-name%
(syntax-rules ()
((%file-name%) "")))
(define-syntax structure-ref
(syntax-rules ()
((structure-ref ?struct ?name)
(error "structure-ref isn't implemented" '?struct '?name))))