Quote promise macro

[jcubic]

Here is problematic code:

(let ((x (Promise.reject (new Error "zonk"))) 
      (y (Promise.resolve 10)))
   (+ y y))
zonk
(let* ((x (Promise.reject (new Error "zonk"))) 
       (y (Promise.resolve 10)))
   (+ y y))
zonk

second promise is ignored because first rejects, this will print error "zonk" in terminal (looks better on the web).

TODO:
Need to figure out how to make it work. Possible solutions are:

• operator that stop resolving of promises (it can work like quoting)
• don't resolve promises when function is method of Promise probably will not work when it's wrapped.

[jcubic]

Possible solution - first one:

'>(Promise.reject (new Error "zonk"))

this will quote the promise. tranlsate into

(quote-promise (Promise.reject (new Error "zonk")))

maybe also `> quasi-quote-promise single based quasiquote that allow to use ,> to resolve the promise.

[jcubic]

Good news that reject in fact throw exception, so it's normal that it break from expression.

(try
 (let ((x (Promise.reject (new Error "zonk")))
       (y (Promise.resolve 10)))
   (+ y y))
     (catch (e)
        (display "YES")))
YES

[jcubic]

This is not a bug, so the issue is now to create '> quote-promise macro. that will stop auto resolving of promises:

Note that expression that wrap promise is also a promise.

[jcubic]

Example of usage for reference:

lips> (--> '>(fetch "https://terminal.jcubic.pl")
           (then (lambda (res) (res.text)))
           (then (lambda (text)
                   (print (. (text.match #/<title>([^>]+)<\/title>/) 1)))))

lips> (await (--> '>(fetch "https://terminal.jcubic.pl")
                           (then (lambda (res) (res.text)))
                           (then (lambda (text)
                                   (. (text.match #/<title>([^>]+)<\/title>/) 1)))))