Merge pull request #1 from daddinuz/spike

Refactor

.cargo/config.toml

@@ -0,0 +1,2 @@
+[env]
+CARGO_WORKSPACE_DIR = { value = "", relative = true }

.github/workflows/rust.yml

@@ -0,0 +1,20 @@
+name: Rust
+
+on:
+  push:
+    branches: [ "main", "dev" ]
+  pull_request:
+    branches: [ "main", "dev" ]
+
+env:
+  CARGO_TERM_COLOR: always
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    steps:
+    - uses: actions/checkout@v4
+    - name: Build
+      run: cargo build --verbose
+    - name: Run tests
+      run: cargo test --verbose

examples/closure.rat

@@ -0,0 +1,2 @@
+: make-adder = [$x add] bind ;
+40 2 make-adder i say

examples/fact.rat

@@ -1,2 +1,2 @@
-: fact ← [dup zero?] [incr] [dup decr] [mul] linrec ;
+: fact = [dup zero?] [incr] [dup decr] [mul] linrec ;
 5 fact say

examples/fib.rat

@@ -1,2 +1,2 @@
-: fib ← [dup 3 lt] [pop 1] [decr dup decr] [add] binrec ;
+: fib = [dup 3 lt?] [pop 1] [decr dup decr] [add] binrec ;
 30 fib say

examples/person.rat

@@ -0,0 +1,4 @@
+: ^new = [$first-name $last-name $age] bind ;
+: ^first-name = 0 at ;
+: ^last-name = 1 at ;
+: ^age = 2 at ;

examples/towards_zero.rat

@@ -1,13 +1,13 @@
 : std @ rat\std ;
 
-: small? ← 1 lt ;
+: small? = 1 lt? ;
 
 # with recursion
-: f ← std\over small? [pop] [[dup decr] dip dup i] if-else ;
+: f = std\over small? [pop] [[dup decr] dip dup i] if-else ;
 10 [f] f
 
 # with combinators
-: f ← [dup small?] [] [dup decr] [] linrec ;
+: f = [dup small?] [] [dup decr] [] linrec ;
 10 f
 
 show

lib/math.rat

@@ -4,8 +4,8 @@
 
 : std @ rat\std ;
 
-÷ abs ← dup negative? [neg] if ;
-÷ halve ← 1 shr ;
-÷ double ← 1 shl ;
-÷ square ← dup mul ;
-÷ pow ← [dup quote [mul] cat] dip std\times ;
+: ^abs = dup negative? [neg] if ;
+: ^halve = 1 shr ;
+: ^double = 1 shl ;
+: ^square = dup mul ;
+: ^pow = [dup quote [mul] cat] dip std\times ;