sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

forbble stability and usability

This commit is contained in:
Sage Vaillancourt 2021-07-05 01:15:01 -04:00
parent 166c9d4889
commit c7d3d7f457
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/examples/forbble.pbl
View File

@ -88,11 +88,13 @@
; Defines a given symbol using a given list of Forth inputs ; Defines a given symbol using a given list of Forth inputs
(def compile (fn (func sym) ( (def compile (fn (func sym) (
; Get next symbol
(def _x (at 0 func)) (def _x (at 0 func))
(if (= _x "$") (rest func) (if (iserr _x) _x
(if (= _x "$") (rest func)
(at 1 ( (at 1 (
(defe sym (ap (eval sym) _x)) (defe sym (ap (eval sym) _x))
(compile (rest func) sym)) (compile (rest func) sym)))
))))) )))))
; Evaluate a list of Forth inputs ; Evaluate a list of Forth inputs
@ -143,9 +145,10 @@
; Basic imperial distances ; Basic imperial distances
(feval (: "ft" 12 * $)) (feval (: "ft" 12 * $))
(feval (: "yd" ft 3 * $)) (feval (: "yd" ft 3 * $))
(feval (: "yds" yd $))
(feval (: "in" $)) (feval (: "in" $))
(feval (: "i>f" 1 ft / $)) (feval (: ">ft" 1 ft / $))
(feval (: "i>y" 1 yd / $)) (feval (: ">yds" 1 yd / $))
; Convert between Farenheit and Celcius ; Convert between Farenheit and Celcius
(feval (: "f>c" 32 - 5 * 9 /$)) (feval (: "f>c" 32 - 5 * 9 /$))