fix eval results clearing

This commit is contained in:
Bobby Towers 2023-04-15 17:22:17 -07:00
parent c9f78008e2
commit c01a55bedd
2 changed files with 89 additions and 12 deletions

View file

@ -417,3 +417,74 @@ cljuser> 
#object[sci.impl.fns$fun$arity_0__7874 0xa7f89b1 "sci.impl.fns$fun$arity_0__7874@a7f89b1"]>
cljuser> 
; : java.lang.String cannot be cast to java.util.regex.Pattern user
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map in" "c (range 8)))"]
cljuser> 
"[\"(def u 7)\" \"\\n\\n(defn t []\\n (map in\" \"c (range 8)))\"]"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map in" "c (range 8)))"]
cljuser> 
"(def u 7) => #'user/u\n\n(defn t []\n (map in => c (range 8)))"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map in" "c (range 8)))"]
cljuser> 
("(def u 7)" "#'user/u\n\n(defn t []\n (map in" "c (range 8)))")
cljuser> 
"#'user/u\n\n(defn t []\n (map in"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
("(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))")
cljuser> 
"#'user/u\n\n(defn t []\n (map inc (range 8)))"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
"[\"(def u 7)\" \"\\n\\n(defn t []\\n (map inc (range 8)))\"]"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
"\n\n(defn t []\n (map inc (range 8)))"
cljuser> 
" => "
cljuser> 
"\n\n(defn t []\n (map inc (range 8)))"
cljuser> 
"[\"(def u 7)\" \"\\n\\n(defn t []\\n (map inc (range 8)))\"]"
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
["(def u 7)" "#'user/u\n\n(defn t []\n (map inc (range 8)))"]
cljuser> 
"\n\n(defn t []\n (map inc (range 8)))"
cljuser> 
"(def u 7)\n\n(defn t []\n (map inc (range 8)))"
cljuser> 
"(def u 7)\n\n(defn t []\n (map inc (range 8)))"
cljuser>