mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-06 18:40:50 -08:00
Code Issues Projects Releases Packages Wiki Activity

bug fix in js-arg, small revisions

Browse source
This commit is contained in:
polos 2021-03-02 09:59:10 +01:00
parent 69a094b6f8
commit 322b737e7b
10 changed files with 44 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -60,8 +60,11 @@
(when (rest list)
(write-char #\,))))
(float
;; cut off Lisp specific notations
(princ (string-right-trim "dl0" (princ-to-string object))))
;; JS can't read 'd0' 'l0'
(let ((str (princ-to-string object)))
(x:when-it (position-if (lambda (ch) (find ch "dl")) str)
(setf (char str x:it) #\e))
(princ str)))
(t
(cond ((eql 't object)
(princ "true"))