WAIT with async

TODO

@@ -1,7 +1,9 b''
 
-* Use async/await
+* Use Parenscript's packages
 * Use Parenscript's minifier
-* WAIT and MENU with async/await
+* Remove dots
+* MENU with async/await
+* Find a way to minify syntax (extra returns at least)
 * Special locations
 * Special variables
 * CLI build for Linux

src/api.ps

@@ -24,6 +24,9 b''
 (defm (root api report-error) (text)
   (alert text))
 
+(defm (root api sleep) (msec)
+  (ps:new (*promise (ps:=> resolve (set-timeout resolve msec)))))
+
 (defm (root api init-dom) ()
   ;; Save/load buttons
   (let ((btn (document.get-element-by-id "qsp-btn-save")))

src/intrinsic-macros.lisp

@@ -147,6 +147,9 b''
 
 ;;; 20time
 
+(ps:defpsmacro wait (msec)
+  `(await (api-call sleep ,msec)))
+
 (ps:defpsmacro settimer (interval)
   `(api-call set-timer ,interval))
 

src/intrinsics.ps

@@ -274,12 +274,6 b''
 
 ;;; 20time
 
-;; I wonder if there's a better solution than busy-wait
-(defm (root lib wait) (msec)
-  (let* ((now (ps:new (*date)))
-         (exit-time (+ (funcall now.get-time) msec)))
-    (loop :while (< (funcall now.get-time) exit-time))))
-
 (defm (root lib msecscount) ()
   (- (*date.now) (root started-at)))
 

src/ps-macros.lisp

@@ -64,7 +64,7 b''
 
 (ps:defpsmacro location ((name) &body body)
   `(setf (root locs ,name)
-         (lambda (args)
+         (ps:async-lambda (args)
            (label-block ()
             (api-call init-args args)
             ,@body