Changeset 15579 in project


Ignore:
Timestamp:
08/27/09 09:13:23 (10 years ago)
Author:
felix
Message:

rartional? still not right; more mingw build fixes by Fadi

Location:
chicken/trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/Makefile.mingw

    r15540 r15579  
    2626
    2727
    28 SEP = \\
     28SEP = $(strip \)
    2929SRCDIR =.$(SEP)
    3030
  • chicken/trunk/defaults.make

    r15573 r15579  
    5858
    5959ifdef WINDOWS_SHELL
    60 SPREFIX = $(subst /,\\,$(PREFIX))
     60SPREFIX = $(subst /,$(SEP),$(PREFIX))
    6161IBINDIR = $(SPREFIX)$(SEP)bin
    6262ILIBDIR = $(SPREFIX)$(SEP)lib
  • chicken/trunk/library.scm

    r15543 r15579  
    47504750              (values prop (##sys#slot tl 0) nxt)
    47514751              (loop nxt) ) ) ) ) )
     4752
     4753
     4754;;; Inline cache
     4755
     4756(define (##sys#inline-cache box thunk)
     4757  (or (##sys#slot box 0)
     4758      (let ((tmp (thunk)))
     4759        (##sys#setslot box 0 tmp)
     4760        tmp)))
  • chicken/trunk/rules.make

    r15574 r15579  
    996996          $(DESTDIR)$(IBINDIR)$(SEP)$(CHICKEN_STATUS_PROGRAM)$(EXE) \
    997997          $(DESTDIR)$(IBINDIR)$(SEP)$(CSC_PROGRAM)$(EXE) \
    998           $(DESTDIR)$(IBINDIR)$(SEP)$(CHICKEN_BUG_PROGRAM)$(EXE)
     998          $(DESTDIR)$(IBINDIR)$(SEP)$(CHICKEN_BUG_PROGRAM)$(EXE) \
     999          $(DESTDIR)$(IBINDIR)$(SEP)$(CHICKEN_SETUP_PROGRAM)$(EXE)
    9991000        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(ILIBDIR)$(SEP)libchicken$(A)
    10001001        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(ILIBDIR)$(SEP)libuchicken$(A)
     
    10091010        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(IBINDIR)$(SEP)libuchicken$(SO)
    10101011        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(IBINDIR)$(SEP)libchickengui$(SO)
     1012        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(ILIBDIR)$(SEP)libchickengui$(A)
    10111013        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(ILIBDIR)$(SEP)$(LIBCHICKEN_IMPORT_LIBRARY)
    10121014        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(DESTDIR)$(ILIBDIR)$(SEP)$(LIBUCHICKEN_IMPORT_LIBRARY)
  • chicken/trunk/runtime.c

    r15564 r15579  
    47064706    double n = C_flonum_magnitude(x);
    47074707     
    4708     if(C_isinf(n) || C_isnan(n)) return C_SCHEME_FALSE;
    4709   }
    4710   else barf(C_BAD_ARGUMENT_TYPE_ERROR, "rational?", x);
    4711 
    4712   return C_SCHEME_TRUE;
     4708    if(!C_isinf(n) && !C_isnan(n)) return C_SCHEME_TRUE;
     4709  }
     4710
     4711  return C_SCHEME_FALSE;
    47134712}
    47144713
  • chicken/trunk/tests/library-tests.scm

    r15555 r15579  
    1212(assert (rational? 1.0))
    1313(assert (not (rational? +inf.)))
    14 (assert (handle-exceptions ex #t (begin (rational? 'foo) #f)))
     14(assert (not (rational? 'foo)))
Note: See TracChangeset for help on using the changeset viewer.