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