|
;;; Package for Static heaps for the Scheme Shell
|
|
;;; Copyright (c) 1995 by Brian D. Carlstrom.
|
|
|
|
;;; based on Scheme48 implementation.
|
|
;;; Copyright (c) 1993, 1994 by Richard Kelsey and Jonathan Rees.
|
|
|
|
(define (newspace-begin) *newspace-begin*)
|
|
(define (heap-pointer) *hp*)
|