diff options
| author | Valery Ushakov <uwe@stderr.spb.ru> | 2019-03-10 03:44:16 +0200 |
|---|---|---|
| committer | Valery Ushakov <uwe@stderr.spb.ru> | 2019-03-10 03:44:16 +0200 |
| commit | 594bd56378a3a707845dd8813881c427a3a8d16e (patch) | |
| tree | 5f18116b77d615f40c50d449a332dafd21347c05 /appl/math | |
| parent | 9b7850d511c2c910abfb42ece20650b97fba5a72 (diff) | |
| parent | 55520626f59983d296c98c008af92f7c5c27bf5f (diff) | |
Merged default into NetBSD/pthreads
Diffstat (limited to 'appl/math')
| -rw-r--r-- | appl/math/mersenne.b | 8 | ||||
| -rw-r--r-- | appl/math/parts.b | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/appl/math/mersenne.b b/appl/math/mersenne.b index c90254b0..7efc4a97 100644 --- a/appl/math/mersenne.b +++ b/appl/math/mersenne.b @@ -3,9 +3,9 @@ implement Mersenne; include "sys.m"; sys : Sys; include "draw.m"; -include "keyring.m"; - keyring: Keyring; - IPint: import keyring; +include "ipints.m"; + ipints: IPints; + IPint: import ipints; # Test primality of Mersenne numbers @@ -17,7 +17,7 @@ Mersenne: module init(nil: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; - keyring = load Keyring Keyring->PATH; + ipints = load IPints IPints->PATH; p := 3; if(tl argv != nil) p = int hd tl argv; diff --git a/appl/math/parts.b b/appl/math/parts.b index 36c36d8e..be5cd1bb 100644 --- a/appl/math/parts.b +++ b/appl/math/parts.b @@ -3,9 +3,9 @@ implement Partitions; include "sys.m"; sys : Sys; include "draw.m"; -include "keyring.m"; - keyring: Keyring; - IPint: import keyring; +include "ipints.m"; + ipints: IPints; + IPint: import ipints; # # the number p(n) of partitions of n @@ -25,7 +25,7 @@ Partitions: module init(nil: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; - keyring = load Keyring Keyring->PATH; + ipints = load IPints IPints->PATH; argv = tl argv; while(argv != nil){ s := hd argv; |
