Convert JS AST to strings in ls-compile-toplevel

[jscl.git] / src / read.lisp

diff --git a/src/read.lisp b/src/read.lisp
index 1d057bd..59838d7 100644 (file)
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -253,8 +253,8 @@
        (let ((descriptor (subseq (read-until stream #'terminalp) 1))
              (subdescriptors nil))
          (do* ((start 0 (1+ end))
-               (end (position #\: (subseq descriptor start))
-                    (position #\: (subseq descriptor start))))
+               (end (position #\: descriptor :start start)
+                    (position #\: descriptor :start start)))
               ((null end)
                (push (subseq descriptor start) subdescriptors)
                `(oget *root* ,@(reverse subdescriptors)))