Ticket #1799: colorize.diff

colorize/0.4.5/colorize.scm

@@ -34 +34 @@
 ;;    not because the colorizing macro is so elegant ;)
 
 (module colorize
-  (html-colorize coloring-type-names coloring-type-exists? scan-string)
+  (html-colorize htmlize coloring-type-names coloring-type-exists? scan-string)
 
 (import (chicken base) (chicken syntax)
         (chicken format) (chicken string)
@@ -287 +287 @@
                        (let ((to (if extend new-position current-position)))
                          (when (> to low-bound)
                            (set! result
-                                 (append result
-                                         (list (cons (cons current-mode
-                                                           mode-stack)
-                                                     (substring/shared
-                                                      str low-bound to))))))
+                                 (cons (cons (cons current-mode
+                                                   mode-stack)
+                                             (substring/shared
+                                              str low-bound to))
+                                       result)))
                          (set! low-bound to)
                          (when (eq? action 'pop)
                            (set! mode-stack (cdr mode-stack))
@@ -309 +309 @@
                          (*scan-calls*))
                  (finish-current (string-length str) #f
                                  (lambda _ (values #f #f)) 'none)
-                 (return result))
+                 (return (reverse result)))
                (or (any (lambda (transition-info)
                           (and-let* ((transition-mode (car transition-info))
                                      ((or (eqv? transition-mode current-mode)