repl comment

prelude.ld

@@ -663,7 +663,7 @@ fn at {
 		when {
 			nil? (raw) -> nil
 			gte? (raw, 128) -> panic! "not an ASCII char"
-			true -> raw
+			true -> base :str_slice (str, n, inc (n))
 		}
 	}
 	(_) -> nil

src/ludus.janet

@@ -55,25 +55,19 @@
 # (do
  (def start (os/clock))
  (def source `
-repeat 100 {
- repeat 100 {
-  fd! (1)
-  rt! (inv (100))
- }
- rt! (inv (100))
-}
+at ("aéc", 3)
  `)
  (def out (-> source 
   ludus
-  # j/decode
+  j/decode
   ))
  (def end (os/clock))
  (setdyn :out stdout)
  (pp out)
- # (def console (out "console"))
- # (print console)
- # (def result (out "result"))
- # (print result)
+ (def console (out "console"))
+ (print console)
+ (def result (out "result"))
+ (print result)
  (print (- end start))
 )