package-lock.json

@@ -1,12 +1,12 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.9",
+  "version": "0.1.8",
   "lockfileVersion": 3,
   "requires": true,
   "packages": {
     "": {
       "name": "@ludus/ludus-js-pure",
-      "version": "0.1.9",
+      "version": "0.1.8",
       "license": "GPL-3.0",
       "devDependencies": {
         "shadow-cljs": "^2.26.0",

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.9",
+  "version": "0.1.8",
   "description": "A Ludus interpreter in a pure JS function.",
   "type": "module",
   "main": "build/ludus.mjs",

prelude.ld

@@ -910,8 +910,8 @@ fn dist {
 fn random {
 	"Returns a random number. With zero arguments, returns a random number between 0 (inclusive) and 1 (exclusive). With one argument, returns a random number between 0 and n. With two arguments, returns a random number between m and n. Alternately, given a list, it returns a random member of that list."
 	() -> base :random ()
-	(n as :number) -> mult (n, random ())
+	(n as :number) -> base :random (n)
-	(m as :number, n as :number) -> add (m, random (sub (n, m)))
+	(m as :number, n as :number) -> add (m, random (n))
 	(l as :list) -> {
 		let i = do l > count > random > floor
 		at (l, i)

src/ludus.janet

@@ -24,13 +24,13 @@
    (set (out :errors) (scanned :errors))
    (each err (scanned :errors)
     (e/scan-error err))
-   (break (-> out j/encode string)))
+   (break (j/encode out)))
  (def parsed (p/parse scanned))
  (when (any? (parsed :errors))
   (set (out :errors) (parsed :errors))
   (each err (parsed :errors)
    (e/parse-error err))
-  (break (-> out j/encode string)))
+  (break (j/encode out)))
  (def validated (v/valid parsed ctx))
  (when (any? (validated :errors))
   (set (out :errors) (validated :errors))
@@ -43,7 +43,7 @@
   ([err] 
    (e/runtime-error err)
    (set (out :errors) [err])
-   (break (-> out j/encode string))))
+   (break (j/encode out))))
  (setdyn :out stdout)
  (set (out :result) (b/show result))
  (var post @{})
@@ -51,9 +51,9 @@
   (set post (i/interpret prelude/post/ast ctx))
   ([err] (e/runtime-error err)))
  (set (out :draw) (post :draw))
- (-> out j/encode string))
+ (string (j/encode out)))
-
-(-> (ludus `
-random (1, 3)
-`) j/decode)
 
+(ludus `
+ let foo = 42
+ "{foo} bar baz"
+`)