fix replace with async lambda #319

CHANGELOG.md

@@ -56,6 +56,7 @@
 * fix `do` macro [#324](https://github.com/jcubic/lips/issues/324)
 * fix `string->number` that leads to NaN [#326](https://github.com/jcubic/lips/issues/326)
 * fix unintentional unboxing in `iterator->array` [#328](https://github.com/jcubic/lips/issues/328)
+* fix `replace` with async `lambda` [#319](https://github.com/jcubic/lips/issues/319)
 
 ## 1.0.0-beta.18
 ### Breaking

README.md

@@ -7,7 +7,7 @@
 [![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.18.1-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&a520631e7f12f3eda2816e5633437fc8)](https://coveralls.io/github/jcubic/lips?branch=devel)
+[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&6d6875155398b050c8cd14e1bcc09224)](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)
@@ -354,7 +354,8 @@ I would also love to see if you use the library, I may even share the links of p
 * [StackOverlow](https://stackoverflow.com) code was used for functions:
   * [fworker](https://stackoverflow.com/a/10372280/387194),
   * [flatten](https://stackoverflow.com/a/27282907/387194),
-  * [allPossibleCases](https://stackoverflow.com/a/4331218/387194).
+  * [allPossibleCases](https://stackoverflow.com/a/4331218/387194),
+  * [async replace](https://stackoverflow.com/a/48032528/387194).
 * Code formatter is roughly based on [scheme-style](http://community.schemewiki.org/?scheme-style) and GNU Emacs scheme mode.
 * Some helpers in standard library are inspired by same functions from [RamdaJS library](https://ramdajs.com/).
 

src/lips.js

@@ -9076,6 +9076,16 @@ var global_env = new Environment({
         typecheck('replace', pattern, ['regex', 'string']);
         typecheck('replace', replacement, ['string', 'function']);
         typecheck('replace', string, 'string');
+        if (is_function(replacement)) {
+            // ref: https://stackoverflow.com/a/48032528/387194
+            const replacements = [];
+            string.replace(pattern, function(...args) {
+                replacements.push(replacement(...args));
+            });
+            return unpromise(replacements, replacements => {
+                return string.replace(pattern, () => replacements.shift());
+            });
+        }
         return string.replace(pattern, replacement);
     }, `(replace pattern replacement string)
 

templates/README.md

@@ -354,7 +354,8 @@ I would also love to see if you use the library, I may even share the links of p
 * [StackOverlow](https://stackoverflow.com) code was used for functions:
   * [fworker](https://stackoverflow.com/a/10372280/387194),
   * [flatten](https://stackoverflow.com/a/27282907/387194),
-  * [allPossibleCases](https://stackoverflow.com/a/4331218/387194).
+  * [allPossibleCases](https://stackoverflow.com/a/4331218/387194),
+  * [async replace](https://stackoverflow.com/a/48032528/387194).
 * Code formatter is roughly based on [scheme-style](http://community.schemewiki.org/?scheme-style) and GNU Emacs scheme mode.
 * Some helpers in standard library are inspired by same functions from [RamdaJS library](https://ramdajs.com/).
 

tests/core.scm

@@ -736,6 +736,10 @@
         (t.is (number->string 1.0e+27 16) "3.3b2e3c9fd0804e+16")
         (t.is (number->string 1000000000000000000000000000 16) "33b2e3c9fd0803ce8000000")))
 
+(test "core: replace async"
+      (lambda (t)
+        (t.is (replace #/foo/ (lambda () (Promise.resolve "lips")) "foo bar") "lips bar")))
+
 ;; TODO
 ;; begin*
 ;; set-obj! throws with null or boolean