Browse files

Fixed build on Mona .

  • Loading branch information...
1 parent 272d31c commit 6a638f19c1aff9e3c8c245704042d288a3a301ab @higepon committed Feb 5, 2012
Showing with 5 additions and 2 deletions.
  1. +2 −2 Makefile.mona
  2. +3 −0 src/Flonum.h
View
4 Makefile.mona
@@ -78,8 +78,8 @@ install:all
rm -rf $(INSTDIR)/r6rs-test-suite
mv $(INSTDIR)/tests/r6rs-test-suite $(INSTDIR)/ # Avoid too long path longer than 64
$(INSTALL) $(TARGET).EXE $(INSTFILES) $(INSTDIR)
- mkdir -p $(BINDIR)/LIBS/MOSH
- cp -pr ./lib/ $(BINDIR)/LIBS/MOSH/
+ mkdir -p $(BINDIR)/LIBS/MOSH/lib
+ cp -pr ./lib/ $(BINDIR)/LIBS/MOSH/lib/
(cd mona && cp -pr ./bin $(BINDIR)/LIBS/MOSH/)
depend dependencies:
View
3 src/Flonum.h
@@ -65,6 +65,9 @@
static inline double round(double x) { if (x >= 0) { return floor(x + 0.5); } else { return ceil(x - 0.5); } }
static inline double trunc(double x) { if (x >= 0) { return floor(x); } else { return ceil(x); } }
#endif
+#ifdef MONA
+ inline double trunc(double x) { if (x >= 0) { return floor(x); } else { return ceil(x); } }
+#endif
/*~C99 isnan/isinf */

0 comments on commit 6a638f1

Please sign in to comment.