Changeset 39381 in project

Timestamp:

11/25/20 19:21:19 (5 months ago)

Author:

Kon Lovett

Message:

fix category

Location:

release/5/fx-utils/trunk

Files:

• fx-utils.egg (modified) (1 diff)
• fx-utils.scm (modified) (2 diffs)

release/5/fx-utils/trunk/fx-utils.egg

@@ -3 +3 @@
 
 ((synopsis "fx utilities")
- (version "4.0.0")
- (category misc)
+ (version "4.0.1")
+ (category math)
  (author "[[kon lovett]]")
  (license "BSD")

release/5/fx-utils/trunk/fx-utils.scm

@@ -143 +143 @@
 (: fx% (fixnum fixnum --> fixnum))
 ;
-(define (fx% n p)
-  (fx/ (fx* p n) 100) )
+(define (fx% n p) (fx/ (fx* p n) 100))
 
 ;;
@@ -155 +154 @@
     ((fx= 1 n)  1)
     ((fx= 2 n)  1)
-    (else
-      (fx+ (fx! (fx- n 1)) (fx! (fx- n 2))) ) ) )
+    (else       (fx+ (fx! (fx- n 1)) (fx! (fx- n 2)))) ) )
 |#