prelude.ld

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

src/ludus.janet

@@ -55,19 +55,25 @@
 # (do
  (def start (os/clock))
  (def source `
-at ("aéc", 3)
+repeat 100 {
+ repeat 100 {
+  fd! (1)
+  rt! (inv (100))
+ }
+ rt! (inv (100))
+}
  `)
  (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))
 )