* exported even?
This commit is contained in:
		
							parent
							
								
									6441235594
								
							
						
					
					
						commit
						9b0d2143a3
					
				
							
								
								
									
										
											BIN
										
									
								
								src/ikarus.boot
								
								
								
								
							
							
						
						
									
										
											BIN
										
									
								
								src/ikarus.boot
								
								
								
								
							
										
											Binary file not shown.
										
									
								
							| 
						 | 
				
			
			@ -98,7 +98,7 @@
 | 
			
		|||
 | 
			
		||||
(library (ikarus generic-arithmetic)
 | 
			
		||||
  (export + - * / zero? = < <= > >= add1 sub1 quotient remainder
 | 
			
		||||
          modulo
 | 
			
		||||
          modulo even?
 | 
			
		||||
          positive? expt gcd lcm numerator denominator exact-integer-sqrt
 | 
			
		||||
          quotient+remainder number->string string->number min max
 | 
			
		||||
          exact->inexact floor ceiling round log fl=? fl<? fl<=? fl>?
 | 
			
		||||
| 
						 | 
				
			
			@ -112,7 +112,7 @@
 | 
			
		|||
    (ikarus system $strings)
 | 
			
		||||
    (only (ikarus flonums) $flonum->exact)
 | 
			
		||||
    (except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
 | 
			
		||||
            remainder modulo quotient+remainder number->string positive?
 | 
			
		||||
            remainder modulo even? quotient+remainder number->string positive?
 | 
			
		||||
            string->number expt gcd lcm numerator denominator
 | 
			
		||||
            exact->inexact floor ceiling round log
 | 
			
		||||
            exact-integer-sqrt min max
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -397,6 +397,7 @@
 | 
			
		|||
    [rational?               i r]
 | 
			
		||||
    [flonum?                 i]
 | 
			
		||||
    [positive?               i r]
 | 
			
		||||
    [even?                   i r]
 | 
			
		||||
    [quotient                i r]
 | 
			
		||||
    [modulo                  i r]
 | 
			
		||||
    [remainder               i r]
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue