         aspects/make-storable
         aspects/make-taggable
         aspects/make-visible 
-        (t/attach-instruction , string->chars)
+        (t/attach-instruction , char-digit?)
         (t/attach-instruction , char-letter?)
-        (t/attach-instruction , char-digit?)
+        (t/attach-instruction , char-lowercase?)
+        (t/attach-instruction , char-uppercase?)
         (t/attach-instruction , char-whitespace?)
+        (t/attach-instruction , float->asciichar)
+        (t/attach-instruction , float->char)
         (t/attach-instruction , integer->asciichar)
         (t/attach-instruction , integer->char)
-        (t/attach-instruction , float->char)
-        (t/attach-instruction , float->asciichar)
-        (t/attach-instruction , char-lowercase?)
-        (t/attach-instruction , char-uppercase?)
+        (t/attach-instruction , string->chars)
         ))
 

(ns push.types.base.char
  (:require [push.instructions.core :as core]
            [push.types.core :as t]
            [push.instructions.dsl :as d]
            [push.util.stack-manipulation :as u]
            [push.util.code-wrangling :as fix]
            [push.instructions.aspects :as aspects])
  (:use push.types.extra.generator)
)


;; character-specific


(def string->chars

    (d/calculate [:new-stack] #(into '() (reverse %1)) :as :kludged)
    (d/replace-stack :char :kludged)))



(def char-type
