"darwin" is no longer hardcoded in lib/ypsilon-compat.ikarus.ss,

instead, it is obtained from the target info that autoconf
generates.
This commit is contained in:
Abdulaziz Ghuloum 2008-09-24 23:18:35 -04:00
parent 3969e56c2d
commit 89d9a472a5
6 changed files with 9 additions and 6 deletions

View File

@ -25,9 +25,7 @@
(define (architecture-feature what)
(case what
[(operating-system) "darwin"]
[(alignof:int) 4]
[(sizeof:int) 4]
[(operating-system) (host-info)]
[else (error 'architecture-feature "invalid args" what)]))
(define (string-contains text s)

View File

@ -41,6 +41,7 @@ ikarus.config.ss: Makefile last-revision ../config.h
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
echo '(define target "$(target)")' >>$@
echo '(define wordsize $(sizeofvoidp))' >>$@

View File

@ -380,6 +380,7 @@ ikarus.config.ss: Makefile last-revision ../config.h
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
echo '(define target "$(target)")' >>$@
echo '(define wordsize $(sizeofvoidp))' >>$@
ikarus.boot: $(EXTRA_DIST) ikarus.config.ss

View File

@ -19,9 +19,11 @@
;;; libraries within the compiler itself.
(library (ikarus startup)
(export print-greeting init-library-path)
(import (ikarus))
(export print-greeting init-library-path host-info)
(import (except (ikarus) host-info))
(include "ikarus.config.ss")
(define (host-info) target)
(define (print-greeting)
(printf "Ikarus Scheme version ~a\n"

View File

@ -1 +1 @@
1610
1612

View File

@ -1478,6 +1478,7 @@
[pointer-set-long $for]
[make-ffi $for]
[make-callback $for]
[host-info i]
))