abs on complex numbers #34

README.md

@@ -7,7 +7,7 @@
 [![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.19-blue.svg)](https://www.npmjs.com/package/@jcubic/lips)
 ![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete)
 [![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch=devel&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml)
-[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&57335eab53c7df00260611523df184d0)](https://coveralls.io/github/jcubic/lips?branch=devel)
+[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&d4dc10c03c3665f14904416f753ddc68)](https://coveralls.io/github/jcubic/lips?branch=devel)
 [![Join Gitter Chat](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/jcubic/lips)
 ![NPM Download Count](https://img.shields.io/npm/dm/@jcubic/lips)
 ![JSDelivr Download count](https://img.shields.io/jsdelivr/npm/hm/@jcubic/lips)

bin/lips.js

@@ -330,6 +330,7 @@ if (options.version || options.V) {
         return [LSymbol(key), ...values];
     }));
     bootstrap(interp).then(function() {
+        // Scheme can access JS global.output
         return run('(for-each (lambda (x) (write x) (newline)) output)', interp, options.d || options.dynamic);
     });
 } else if (options.e || options.eval) {
@@ -574,12 +575,12 @@ function run_repl(err, rl) {
     let resolve;
     const brackets_re = /\x1b\[(200|201)~/g;
     // we use promise loop to fix issue when copy paste list of S-Expression
+    const is_emacs = process.env.EMACS || process.env.INSIDE_EMACS;
     let prev_eval = Promise.resolve();
-    if (process.stdin.isTTY) {
+    if (process.stdin.isTTY || is_emacs) {
         rl.prompt();
     }
     let prev_line;
-    const is_emacs = process.env.INSIDE_EMACS;
     function is_brackets_mode() {
         return !!cmd.match(brackets_re);
     }

src/lips.js

@@ -6351,6 +6351,12 @@ LComplex.prototype.constant = function(im, re) {
     enumerable(this, '__type__', 'complex');
 };
 // -------------------------------------------------------------------------
+LComplex.prototype.abs = function() {
+    const im = this.__im__.abs();
+    const re = this.__re__.abs();
+    return LComplex({ im, re });
+};
+// -------------------------------------------------------------------------
 LComplex.prototype.serialize = function() {
     return {
         re: this.__re__,

tests/numbers.scm

@@ -1113,3 +1113,30 @@
                     (t.is (to.throw (op? 1.2)) #t)
                     (t.is (to.throw (op? 1.2)) #t))
                   '(even? odd?))))
+
+(test "numbers: abs"
+      (lambda (t)
+        (let ((specs '((10 10)
+                       (0.5 0.5)
+                       (-0.5 0.5)
+                       (-10 10)
+                       (-1/2 1/2)
+                       (-10-10i 10+10i)
+                       (-10+10i 10+10i)
+                       (10-10i 10+10i)
+                       (10+10i 10+10i)
+                       (-1/2-1/2i 1/2+1/2i)
+                       (-1/2+1/2i 1/2+1/2i)
+                       (1/2-1/2i 1/2+1/2i)
+                       (-0.5-0.5i 0.5+0.5i)
+                       (-0.5+0.5i 0.5+0.5i)
+                       (0.5-0.5i 0.5+0.5i)
+                       (0.5+0.5i 0.5+0.5i)
+                       (-nan.0 +nan.0)
+                       (+nan.0 +nan.0)
+                       (-inf.0 +inf.0)
+                       (+inf.0 +inf.0))))
+          (for-each (lambda (lst)
+                      (t.is (abs (car lst))
+                            (cadr lst)))
+                    specs))))