Changeset 14 for trunk

Timestamp:

11/05/2007 03:12:10 PM (19 years ago)

Author:

dsowen

Message:

Fixed to work with new lexers.

File:

• trunk/example.lisp (modified) (1 diff)

trunk/example.lisp

@@ -39 +39 @@
 
 (defun scan-all (input)
-  (labels ((scan (input tokens)
-             (if (> (length input) 0)
-                 (multiple-value-bind (class literal remainder)
-                     (scan-csv input)
+  (labels ((scan (start tokens)
+             (if (> (length input) start)
+                 (multiple-value-bind (class image remainder)
+                     (scan-csv input start)
                    (when class
-                     (scan remainder (cons (cons class literal) tokens))))
-                 (reverse tokens))))
-    (scan input '())))
+                     (scan remainder (cons (cons class image) tokens))))
+                 (nreverse tokens))))
+    (scan 0 '())))
 
 (scan-all "no quotes,'a ''quote''',\"another \"\"quote\"\"\"")