From 3a6b33db271d867c89d0d3baffd0da763fac5d91 Mon Sep 17 00:00:00 2001 From: bdc Date: Tue, 31 Oct 1995 23:29:37 +0000 Subject: [PATCH] *** empty log message *** --- scsh/endian.scm.in | 4 ++-- scsh/static.scm.in | 5 ++++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/scsh/endian.scm.in b/scsh/endian.scm.in index 9394439..c73d530 100644 --- a/scsh/endian.scm.in +++ b/scsh/endian.scm.in @@ -32,5 +32,5 @@ (define net-to-host-32 net-to-host-32-@ENDIAN@) (define net-to-host-16 net-to-host-16-@ENDIAN@) -(define host-to-net-32 host-to-net-32-@ENDIAN@) -(define host-to-net-16 host-to-net-16-@ENDIAN@) +(define host-to-net-32 net-to-host-32-@ENDIAN@) +(define host-to-net-16 net-to-host-16-@ENDIAN@) diff --git a/scsh/static.scm.in b/scsh/static.scm.in index 496978a..08a9ae8 100644 --- a/scsh/static.scm.in +++ b/scsh/static.scm.in @@ -12,7 +12,10 @@ header-a-units d-vector? stob-type) - (open scheme heap)) + (open scheme heap) + (begin + (define (newspace-begin) *newspace-begin*) + (define (heap-pointer) *hp*))) (define-structure scsh-static-heap (export scsh-static-linker) (open scheme heap memory data stob struct