Await should not affect original quoted promises

[jcubic]

Description

Await seems to affect original quoted promise in variable

Steps to reproduce:

(let ((x '>(new Promise (lambda (r) (setTimeout (lambda () (r "hello")) 1000)))))
  (print x)
  (print (await x))
  x)
;; ==> #<js-promise (pending)>
;; ==> hello
;; ==> "hello"
(let ((x '>(new Promise (lambda (r) (setTimeout (lambda () (r "hello")) 1000)))))
  (print (await x))
  (type x))
;; ==> hello
;; ==> "promise"

[jcubic]

The problem seems to be with let:

lips> (let ((x x)) (await x) x)
"hello"
lips> (let ((x x)) (await x) (list x))
(#<js-promise resolved (string)>)

[jcubic]

this is not related to let:

lips> (begin (print (await x)) x)
hello
"hello"
lips> ((lambda () (print (await x)) x))
hello
"hello"

[jcubic]

The issue is not with macros:

(define value '>(timer 100 "hello world"))
(define-macro (x . body) `(list ,@body))
(x (await value) value)
;; ==> ("hello world" #<js-promise resolved (string)>)

[jcubic]

The problem was that Promise handle promise like objects like real promises, so if promise resolve to quoted promise, it will resolve to the value of quoted promise not to quoted Promise.