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

Add Forbble comment

This commit is contained in:
Sage Vaillancourt 2020-11-08 16:44:53 -05:00
parent fc3fcf34ed
commit cc199b0e57
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/examples/forbble.pbl
View File

@ -111,10 +111,12 @@
(if (= "over" _x) (_over 0) (if (= "over" _x) (_over 0)
(if (= "^" _x) (pch (bop 0)) (if (= "^" _x) (pch (bop 0))
(if (= ":" _x) ( ; Compile a phrase into the next symbol (if (= ":" _x) ( ; Compile a phrase into the next symbol
(def var (at 1 list)) (def var (at 1 list)) ; Collect the symbol to define, as a string
(defe var (+ "_" var)) (defe var (+ "_" var)) ; Add an underscore for the internal storage
(defe (+ "_" var) ()) (defe (+ "_" var) ()) ; Define internally as an empty list
(def list (compile (rest (rest list)) (+ "_" var)))) (def list (compile ; Overwrite list with output of (compile)
(rest (rest list)) ; Current list, not including ':' or the symbol
(+ "_" var)))) ; The internal variable name
( ; If none of the above hit, try to interpret as a compiled symbol ( ; If none of the above hit, try to interpret as a compiled symbol
(def _e (eval _x)) (def _e (eval _x))
(if (iserr (len _e)) () (feval _e)) (if (iserr (len _e)) () (feval _e))