fix build on x64

This commit is contained in:
Yuichi Nishiwaki 2017-03-29 08:20:02 +09:00
parent d5882f6d6d
commit 70a4432d20
2 changed files with 4 additions and 1 deletions

View File

@ -480,6 +480,7 @@ double PIC_CSTRING_TO_DOUBLE(const char *);
#endif
#if __x86_64__ && (defined(__GNUC__) || defined(__clang__)) && ! defined(__STRICT_ANSI__)
# include <stdint.h>
# define PIC_NAN_BOXING 1
#else
# define PIC_NAN_BOXING 0

View File

@ -1,4 +1,6 @@
(import (picrin base))
(import (scheme base)
(scheme read)
(scheme write))
(define (with-output-to-string thunk)
(let ((port (open-output-string)))