low.scm 449 B

12345678910111213141516
  1. ; Part of Scheme 48 1.9. See file COPYING for notices and license.
  2. ; Authors: Richard Kelsey, Jonathan Rees, Mike Sperber
  3. ; Portable versions of low-level things that would really like to rely
  4. ; on the Scheme 48 VM or on special features provided by the byte code
  5. ; compiler.
  6. (define (vector-unassigned? v i) #f)
  7. (define maybe-open-input-file open-input-file)
  8. (define maybe-open-output-file open-output-file)
  9. (define (unspecific) (if #f #f))