X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=ez.git;a=blobdiff_plain;f=ez.el;fp=ez.el;h=268becdec4ffdc8e37171931bc4281a735fda925;hp=65990b7b7690bb8ebf7c799e5509faf933a766b7;hb=4b61e7a8949dee61d40e59710fd1af733926c498;hpb=fcb66a431dd743fd06547505ab8476d7d961f853

diff --git a/ez.el b/ez.el
index 65990b7..268becd 100644
--- a/ez.el
+++ b/ez.el
@@ -848,10 +848,14 @@
   'wait-for-input)
 
 (defun ez-op-read2 (input-string)
-  (ez-tokenize-string input-string
-                      (car ez--next-read-args)
-                      (cadr ez--next-read-args))
-  'run)
+  (let ((baddr1 (car ez--next-read-args))
+        (baddr2 (cadr ez--next-read-args)))
+
+    (dotimes (i (length input-string))
+      (ez-mem-set-byte (+ baddr1 1 i) (downcase (elt input-string i))))
+    (ez-mem-set-byte (+ baddr1 1 (length input-string)) 0)
+    
+    ))
 
 ;; Execution loop